Routine: NURSAFLL

Information

NURSAFLL ;HIRMFO/RM,MD,FT-LOOKUP FOR FILE 211.4 ;10/10/96 13:03

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Need to add Nursing to the LOCATION TYPE (#40.9) File" Line Location: EN1+1
Function Call: WRITE	Prompt: *7,!?5,"Cannot identify your Primary Station Number.",!?5,"Please contact your ADPAC or IRM Support Person.",! Line Location: READ+2
Function Call: WRITE	Prompt: !,$S('$D(DIC("A")):"Select NURSING UNIT NAME: ",1:DIC("A"))_$S('$D(DIC("B")):"",1:$S(DIC("B")?1"NUR ".E:$P(DIC("B"),"NUR ",2),1:DIC("B"))_"// ") Line Location: READ+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: READ+5
Function Call: WRITE	Prompt: !?5,"ANSWER YES OR NO" Line Location: HP1+0
Function Call: READ	Formatting: ! Prompt: "'^' TO STOP " Variable: NURZ Timeout: DTIME Line Location: UPS+1
Function Call: WRITE	Prompt: !?5,$P(NURX,"NUR ",2),?32,$S(YY="I":"INACTIVE",1:""),?50,$S($P($G(^DIC(213.9,1,0)),U,9)="Y":$E(ZZ,1,15),1:"") Line Location: SCR+2

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	Classic Fileman Calls, FIELD^DID, VFIELD^DILFD
^DIC(42 - [#42]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls