Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: NURSAFLL

Package: Nursing Service

Routine: NURSAFLL


Information

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

Source Information

Source file <NURSAFLL.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 %XY^%RCR  (,IX)^DIC  YN^DICN  FIELD^DID  ^DIK  $$VFIELD^DILFD  
Nursing Service 2 $$EN8^NURSAFU0  $$EN12^NURSUT3  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Nursing Service 2 NURSAFUD  ^NURSF(211.4  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; RETURNS Y=-1 IF NO SELECTION
READ ;
Q
HELP ;
HP1
UPS ;
SCR ;
CHK ;
MULT ; MULTIPLE LOOKUP

External References

Name Field # of Occurrence
%XY^%RCR EN1+4, Q
^DIC READ+7, READ+12, READ+15
IX^DIC MULT+1
YN^DICN HP1
FIELD^DID HELP+1
^DIK READ+15
$$VFIELD^DILFD HELP+1
$$EN8^NURSAFU0 READ+1
$$EN12^NURSUT3 SCR+1
$$SITE^VASITE READ+2

Interaction Calls

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
Routine Call
  • DIC
  • Line Location:
    • READ+7
    • READ+12
    • READ+15
Routine Call
  • DIC
  • Line Location:
    • MULT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] SCR+2
^DIC(40.9 - [#40.9] EN1+1
^NURSF(211.4 - [#211.4] Q+2, HP1, HP1+1, SCR+1
^SC - [#44] Q+2
^SC("B" HP1+1

Label References

Name Line Occurrences
CHK HP1
HELP READ+6
HP1 HP1
MULT READ+8
Q EN1+1, READ+5, READ+6, READ+8, READ+9, READ+13
READ READ+6, READ+8, READ+13, READ+15
SCR HP1+1
UPS SCR+2

Naked Globals

Name Field # of Occurrence
^(0 Q+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HP1*
>> %X EN1+4*, Q*
>> %Y EN1+4*, Q*
>> D MULT+1*
>> DA READ+15*
DIC EN1+2, EN1+5, READ+3!*, READ+7*, READ+10!*, READ+15*, Q+1!*, MULT+1!*
DIC( EN1+5, READ+3*, Q+1*
DIC("A" READ+4
DIC("B" READ+4, READ+5
DIC("DR" READ+11*, READ+12!*
DIC("S" READ+10*, READ+12!*, HP1, SCR+2, MULT+1*
DIC("W" READ+10*, READ+15*
DIC(0 EN1+2, EN1+3, EN1+5, READ+4, READ+6, READ+7*, READ+10*, READ+13, READ+15*, Q+2
, MULT+1*
DICR EN1+4!, Q!*
>> DIK READ+15*
DLAYGO READ+8, READ+9, READ+10*, READ+12!*
DTIME READ+5, UPS+1
DTOUT EN1+1!, READ+5*
DUOUT EN1+1!, READ+5*
NUR EN1+1*, EN1+5*, READ+3*, READ+14*, READ+15, Q+1*, Q+3!
NUR(0 EN1+5*, READ+3*, Q+1*
NURA Q+3!, HP1+1*, UPS+1*, SCR+2*
NURDIC EN1+5*, READ+3, READ+15, Q+1, Q+3!
NURDIC( EN1+5*, READ+3, Q+1
NURDIC("DR" READ+12
NURDIC("S" READ+12, MULT+1
NURDIC("W" READ+15
NURDIC(0 READ+3, READ+8, READ+15, MULT+1
NURDICR EN1+4!*, Q, Q+3!
NUREXIT EN1+1*, Q+3!, HELP+1*, HP1+1, UPS+1*, SCR+2, CHK+1*
NURLAY READ+9!*, READ+12!
>> NURMDSW READ+1*
NURTMX EN1+5*, READ+3, READ+5*, READ+8, READ+10, Q+2, Q+3!, MULT+1
NURX Q+3!, HP1+1*, SCR+2
NURX("HELP-PROMPT" HELP+1
NURX(0 HP1+1*
NURY Q+3!, HP1+1*
NURY("XECUTAB LE HELP" , HELP+1
NURZ Q+3!, UPS+1*
U HELP+1*, SCR+2
X EN1+3, EN1+5, READ+1*, READ+3!*, READ+5*, READ+6, READ+7*, READ+10*, READ+14*, Q+2*
, HP1, CHK+1*, MULT+1*
Y EN1+1*, EN1+3*, EN1+4!, READ+2*, READ+5*, READ+8, READ+9, READ+13, READ+14, READ+15
, Q+2, HP1+1*, SCR+1, CHK+1*, MULT+1
Y(0 Q+2*
>> YY SCR+1*, SCR+2
>> ZZ SCR+1*, SCR+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All