Routine: NURAMHE

Information

NURAMHE ;HIRMFO/MD,FT-NURSING MANHOURS ENTER/EDIT FUNCTION ;8/14/96 09:45

Source file <NURAMHE.m>

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIE D^DIQ
Nursing Service	3	^NURAKILL EN1^NURAMHU EN6^NURSAUTL

Package	Total	Caller Graph
Nursing Service	1	NURAMN-MANED

Name	Comments	DBIA/ICR reference
QUIT
NXDT
EDIT	; PROCESS SELECTED SHIFT(S)
SHIFT
EN1	;PATIENT CARE ENTRY POINT FROM OPTION NURAMN-MANED
MSG
MAIN	;LOOP PROCESS

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NXDT+0
Function Call: WRITE	Prompt: !!,"...Editing "_$S(SHIFT(NURDA)="E":"EVENING",SHIFT(NURDA)="D":"DAY",SHIFT(NURDA)="N":"NIGHT",1:"")_" SHIFT for ward "_NPWARD_"...",! Line Location: EDIT+1
Function Call: READ	Prompt: "Select Shift(s) (Enter N - Night D - DAY E - Evening or A for All Shifts): " Formatting: !! Timeout: DTIME,! Variable: NURSHFT Line Location: SHIFT+0
Function Call: WRITE	Prompt: !,"Enter shift selection(s) (i.e., N,D,E - ND - DE etc)." Line Location: SHIFT+1
Function Call: WRITE	Prompt: !!,"ANOTHER PROCESS IS WORKING ON THIS ENTRY",$C(7) Line Location: MAIN+1
Function Call: WRITE	Prompt: !!,"ENTERED BY: ",$P(^VA(200,$P(^NURSA(213.4,DA,0),"^",8),0),"^") Line Location: MAIN+4
Function Call: WRITE	Prompt: !,$C(7)," IMPROPER SHIFT SELECTION " Line Location: MSG+0
Routine Call	DIE Line Location: MAIN+2 MAIN+3
Routine Call	DIC Line Location: EN1+5

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	Classic Fileman Calls
^NURSA(213.4 - [#213.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN1+1
^NURSA(213.4 - [#213.4]	MAIN+1, MAIN+2, MAIN+3, MAIN+4
^VA(200 - [#200]	MAIN+4

Name	Field # of Occurrence
^(0	MAIN+4

Name	Field # of Occurrence
%DT	EN1+7, NXDT!
%DT("A"	NXDT*
%DT("B"	EN1+7*
>> DA	MAIN+1, MAIN+2, MAIN+3, MAIN+4
DIC	EN1+2*, EN1+5!
DIC("A"	EN1+2*
DIC("S"	EN1+3, EN1+4
DIC(0	EN1+2*
>> DIE	MAIN+2*
>> DR	MAIN+2, MAIN+3
DTIME	SHIFT
DUZ(0	EN1+3
>> I	SHIFT+4*
>> NCWARD	EN1+6*, EDIT+1, MAIN+1
>> NPWARD	EDIT+1*
>> NURDA	EDIT+1*, MAIN+1
>> NURDAY	NXDT+2*, MAIN+1
>> NURNODE	MAIN+3*
>> NUROUTSW	EN1+7, NXDT+2, EDIT+1, SHIFT, MAIN+1*
>> NURSHFT	SHIFT, SHIFT+1, SHIFT+2, SHIFT+3, SHIFT+4, SHIFT+5, SHIFT+6, MAIN+1*
>> NURX	SHIFT+5, SHIFT+6
>> SAVENODE	MAIN+1*, MAIN+3
SHIFT	NXDT+3!
SHIFT(	EDIT+1, SHIFT+5, SHIFT+6, MAIN+1
>> X	EN1+5, EN1+7, NXDT+1, NXDT+2, MAIN+1
>> Y	EN1+5, EN1+6, EN1+7, NXDT+1, NXDT+2