Routine: NURSAGS0

Information

NURSAGS0 ;HIRMFO/RM,MD-SELECT MULTIPLE NURSING LOCATION UTILITY ;11/18/96

Source file <NURSAGS0.m>

Package	Total	Call Graph
Nursing Service	2	EN6^NURSAUTL $$EN12^NURSUT3
VA Fileman	1	^DIC

Package	Total	Caller Graph
Nursing Service	2	NURCROP0 NURSAGSP

Name	Comments	DBIA/ICR reference
DIC1
RETURN
HLP	; PRINT LOCATIONS SELECTED ALREADY
MDIC()	; FUNTION RETURNS NURSNLOC(NLOC,NLOCIEN)="" ; FUNCTION VALUE IS -1 IF USER ABORT, 0 IF NO LOCS PICKED, ELSE 1 ; USERS WITH AN AMIS POSITION OF HEAD NURSE AND BELOW WILL ONLY ; BE ABLE TO SELECT LOCATIONS TO WHICH THEY HAVE BEEN ASSIGNED ; IF A SITE IS MULTI-DIVISIONAL AND A SPECIFIC FACILITY HAS BEEN ; SELECTED AS A SORT PARAMETER ONLY LOCATIONS ASSOCIATED WITH THAT ; FACILITY CAN BE SELECTED
DIC	;

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: DIC+7
Function Call: WRITE	Prompt: !,$S('$D(NURSNLOC):"Select",1:"Another")_" NURSING UNIT"_$S($D(NURSNLOC):"",NURSZAP'>7!('NURSZAP):" (Enter return for "_$S(NURSZAP'=7:"all units",1:"your ward(s)")_") ",1:"")_": "_$S(NURSZAP>7:DIC("B")_"//",1:"") Line Location: DIC+7
Function Call: WRITE	Prompt: $C(7) Line Location: HLP+1
Function Call: WRITE	Prompt: !?3,"YOU HAVE ALREADY SELECTED: " Line Location: HLP+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: HLP+2
Function Call: WRITE	Prompt: !!?3,"You may deselect from the list by typing the - followed by location name.",!?4,"E.g. -3E would delete 3E from the list of locations already selected." Line Location: HLP+4
Routine Call	DIC Line Location: DIC1

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

Name	Field # of Occurrence
DIC	MDIC+7~, DIC1*
DIC("B"	DIC+6!*, DIC+7, DIC+8, DIC1+3
DIC("S"	DIC+1, DIC+2, DIC+3, DIC+4, DIC+5*
DIC(0	DIC1*
DTIME	DIC+7, HLP+2
MDIC	MDIC+7~, RETURN+1, RETURN+3, DIC1+3*
NEG	MDIC+7~, DIC1*, DIC1+1
NPWARD	MDIC+7~, DIC+6*
>> NURFAC(1	DIC+1, DIC+2, DIC+3, DIC+5
>> NURHOSP	MDIC+7, RETURN+2, RETURN+3
>> NURMDSW	DIC+1, DIC+2, DIC+3, DIC+5
NUROUT	MDIC+7~
NURSNLOC	MDIC+7!, DIC+7, RETURN+2, RETURN+3, HLP+1
NURSNLOC(	DIC1+1*, DIC1+2!, DIC1+3, HLP+2
>> NURSZAP	DIC+1, DIC+2, DIC+3, DIC+4, DIC+5, DIC+6, DIC+7, RETURN
>> NURSZLO(0	DIC+6
NURY	MDIC+7~, DIC1+3*
X	MDIC+7~, DIC+7, DIC+8, RETURN, RETURN+1, RETURN+2, RETURN+3, RETURN+4, DIC1, HLP+2*
Y	MDIC+7~, RETURN+4, DIC1, DIC1+1, DIC1+2, HLP+2*, HLP+3
Y(0	DIC1+1, DIC1+2