Calculate Julian Date on a Gold Form
By Scott Cannon

Does your healthcare organization require certain assessments be present on each patient? Does your organization require these assessments be entered each day? If so, this display will provide your user with an up-to-the minute snapshot of the patients on a nurse station, whether they have the assessment and if so, what status it is in. This display utilizes PRGPR and a Gold Form.

First thing to set up is a set of members in PRGPR (Generic Print Profile).

ASMT001	CARE PROV/NURSE STA FETCH	1	GERRCP02	CHPPGE1F	F	N	________
ASMT002	PATIENT FETCH PROGAM	2	________	CHPPGE1G	F	N	________
ASMT003	COR FLOWSHEET PRINT PROGRAM	3	ASMTDF01	CHPPREFS	P	N	________
ASMT004	LAST PAGE PRINT PROGRAM	3	________	CHPPGEPG	P	N	ASMT0001

The next thing to set up is a TCL that contains defaults for the COR program to unload data for. This TCL is referenced by ASMT002 above, T=ASMTDF01. You should set values for things like starting date and time, walking sequence, etc. In addition, set the value for the following items in this TCL:

[DVA]
"%REDSLAT"='N'
"%REFORMT"='L'
"%REPRINT"='1'
"%REPRTPL"='N'
"%RECOLMS"=4
"CBE58"='ASSESSPERF'
[STACK]
$T=RERRDL01
$T=ASMTSD01	copy model T=RERRSD01 and modify %REPSL07 and %REPSL08 names
$T=RERRCB01

The documents for %REPSL07 and %REPSL08 should be modified and renamed for this display.

%REPSL07
<. STATUS DATE TIME >
%LINE01 --> %RESPACE 074

%REPSL08
<.......... . ../../.. ..:.. >
%LINE01 --> CBED6 014 CBEC8 006 %REDT 009 %RETM 048

The section of processing kicked off by T=ASMT0001 will copy the %LINExx fields into shorter 10 character fields for the ability to examine them in conditional stack logic. (%LINExx fields are too long to evaluate). The next TCL to process will check if the 10 character field is not equal to the assessment type you are looking for. If it is not equal, the 10 character field is deleted. The TCL will cycle through all occurrences of the 10 character field and then go to the next TCL. You will then use DVAL processing to count the number of occurrences of the 10 character field left in the auda. If the count is one, that means that the patient does not have any of the assessment you are looking for. The next TCL will cycle through the remaining 10 character fields to extract information from the corresponding %LINExx field into a held field of CBE19.

Once the process is finished, you will be left with CBE19#xx fields in the auda showing the assessment, status, date, and time. The Gold Form will use that information to build a display for the user.

Your pathway needs to start off asking the user which nurse station they want to run the display for and end up with C0301 in the auda. Then set “%OIGPRPT”=’ASMT’, “%OIGPTGT”=’targetdoc’. Your target document should have the number of copies set to 0 so nothing will print. The TCL will then need to stack $P=OIO24200 and your Gold Form for the display.

A display will look similar to the screen shot below. In this case the assessment we were looking for was called FIMS.

If you would like more detailed instructions and a pathway flow diagram, contact VCS at 610.444.1233 or vcs@getvitalized.com.