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: NURSUT0

Package: Nursing Service

Routine: NURSUT0


Information

NURSUT0 ;HIRMFO/MD,RM,FT-NURS STAFF FILE EDIT UTILITY ; 1/17/03 2:54pm

Source Information

Source file <NURSUT0.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  EN^XQH  
Nursing Service 2 EN3^NURSUT0  ($$EN11,$$EN13)^NURSUT3  
VA FileMan 2 ^%DT  ($$GET1,D)^DIQ  

Caller Graph

Caller Graph Total: 86

Package Total Caller Graph
Nursing Service 86 NURA5A  NURA5B  NURA5C  NURA6A1  NURA6B1  NURA6B2  NURA6C1  NURA6C2  
NURA6D1  NURA6D2  NURA6E1  NURA6F1  NURA6G  NURA6H1  NURA6I1  NURA6I2  
NURA6J1  NURA6K1  NURA6K2  NURA7A  NURA7B  NURA7C  NURA9A1  NURA9B1  
NURA9B2  NURA9C1  NURA9C2  NURA9D1  NURA9D2  NURA9E1  NURA9F1  NURA9G  
NURA9H1  NURA9I  NURA9J1  NURA9K  NURAAU2  NURACEW0  NURADEG  NURADEG1  
NURADEG2  NURADEG3  NURAED1  NURAFSD  NURAMH9  NURAR11A  NURAR1A  NURARCR0  
NURARCRW  NURARMC0  NURARMH0  NURARNCT  NURARPC0  NURARWL1  NURARWL4  NURASPL  
NURCAS0  NURCCP1  NURCES0  NURCEVE5  NURCEVP0  NURCPPS1  NURCPPS3  NURCVPR0  
NURSAED-I-STAFF2  NURSAL0  NURSAUTL  NURSCEP  NURSCPLC  NURSDFFS  NURSDTMP  NURSEP31  
NURSEP3I  NURSEPC1  NURSEPCA  NURSEPCP  NURSEPD0  NURSEPD2  NURSEPIN  NURSEPML  
NURSUT0  NURSUT1  NURSXECP  ^NURSF(210  OCCUPANCY/TRANSFERRED DATE  PROFESSIONAL EXPERIENCE  

Entry Points

Name Comments DBIA/ICR reference
EN1(NURSEMP,NURSDT) ; DETERMINE IF EMPLOYEE HAS ANY ACTIVE ASSIGNMENTS
EN2 ; FIND PRIMARY SERVICE POSITION
SVPOS
EN3 ; SELECT FIRST ACTIVE PRIMARY ASSIGNMENT
CHECK ;
EN4 ;SET LOGIC FOR DE XREF OF 211.82 SUBFILE
EN5 ;KILL LOGIC FOR DE XREF 0F 211.82 SUBFILE
EN6 ; SELECT MULTIPLE REPORT COPIES
EN7 ; NURS DEVICE HANDLING/QUEUEING LOGIC
EN8 ; INPUT TRANSFORM FOR 2.1 & 2.5 SUBFIELDS OF FIELD 22.5
EN9 ; FIND TOUR OF DUTY FROM STAFF FILE
EN11(D0) ; PRINT EMPLOYEE MI REVIEW GROUPS
EN12(DA) ; PRINT EMPLOYEE SALARY
EN13(DA) ; LATEST PROMOTION DATE

External References

Name Field # of Occurrence
^%DT EN8+5, EN8+6
^%ZIS EN7+2
^%ZISC EN7+4
^%ZTLOAD EN7+7
$$GET1^DIQ SVPOS+4
D^DIQ EN12+3, EN13+2
EN3^NURSUT0 EN9+1
$$EN11^NURSUT3 SVPOS+6
$$EN13^NURSUT3 SVPOS+7
EN^XQH EN7+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"How many copies of this report are required: 1// "
  • Line Location: EN6+1
Function Call: WRITE
  • Prompt: !,$C(7),?5,"ANSWER WITH A NUMBER BETWEEN 1 AND 20",!!
  • Line Location: EN6+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EN7+3
Function Call: WRITE
  • Prompt: !,$C(7)," ** THIS REPORT MUST BE SENT TO A 132 COLUMN DEVICE **",!
  • Line Location: EN7+4
Function Call: WRITE
  • Prompt: !?5,NURS("HELP")
  • Line Location: EN8+5
Function Call: WRITE
  • Prompt: !?5,"DATE MUST BE A CURRENT OR PAST DATE"
  • Line Location: EN8+6
Function Call: WRITE
  • Prompt: !,?$S($G(EDIT)=1:0,1:9),"MI REVIEW GROUP: "
  • Line Location: EN11+2
Function Call: WRITE
  • Prompt: ?$S($G(EDIT)=1:18,1:26),$P($G(^PRSE(452.3,+PRSE,0)),U)
  • Line Location: EN11+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $O(^PRSPC(PDA,5,D1))
  • Line Location: EN11+2
Routine Call
  • %ZIS
  • Line Location:
    • EN7+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(212.7 - [#212.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^NURSF(210 - [#210] EN2+1, EN2+2, EN3+1, EN8+2, EN8+7*, EN11+1, EN12+2, EN13+2
^NURSF(211.3 - [#211.3] SVPOSSVPOS+2
^NURSF(211.4 - [#211.4] SVPOS+1
^NURSF(211.6 - [#211.6] EN9+1
^NURSF(211.8 - [#211.8] EN1+7, EN2+3, EN2+4, SVPOSSVPOS+1, EN3+2, CHECK+1, EN4+1*, EN5+1!, EN9+1
^PRSE(452.3 - [#452.3] EN11+2
^PRSPC - [#450] EN11+2, EN12+3
^PRSPC("SSN" EN11+1, EN12+2
^VA(200 - [#200] EN11+1, EN12+2

Label References

Name Line Occurrences
CHECK EN3+2
EN3 EN2+2
EN6 EN6+3
EN7 EN7+3, EN7+4
SVPOS EN2+2

Naked Globals

Name Field # of Occurrence
^(0 EN1+7, EN2+1, SVPOSEN3+1, CHECK+1, EN8+2, EN9+1, EN11+2, EN12+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN8+5*, EN8+6*, EN8+8!
%DT(0 EN8+3*, EN8+4, EN8+5!, EN8+6*
%ZIS EN7+1*, EN7+2!
%ZIS("B" EN7+1*
D0 EN11~, EN11+1, EN12+1~, EN13+1~
>> D1 EN11+2*
DA EN2+1, EN2+2, EN3+1, EN4+1, EN5+1, EN8+2, EN8+7, EN12~, EN12+2, EN12+3*
, EN13~, EN13+2
DA(1 EN4+1, EN5+1, EN8+2, EN8+7
DA200 EN12+2*, EN12+3!
DC EN12+1~, EN13+1~
DE EN12+1~, EN13+1~
DG EN12+1~, EN13+1~
DH EN12+1~, EN13+1~
DI EN12+1~, EN13+1~
DIC EN12+1~, EN13+1~
DIE EN12+1~, EN13+1~
DIEL EN12+1~, EN13+1~
DIFLD EN12+1~, EN13+1~
DK EN12+1~, EN13+1~
DL EN12+1~, EN13+1~
DM EN12+1~, EN13+1~
DP EN12+1~, EN13+1~
DQ EN12+1~, EN13+1~
DR EN12+1~, EN13+1~
DT CHECK+1, EN8+6
DTIME EN6+1
>> EDIT EN11+2
ID EN2+1*, EN2+3, SVPOS+8!, EN3+1*, EN3+2, EN3+3!
IO EN7+3
IO("C" EN7+4!, EN7+7!
IO("Q" EN7+2!, EN7+3, EN7+4!, EN7+7!
IO("S" EN7+3
IO(0 EN7+3
IOM EN7+4, EN7+7
ION EN7+7
IOSL EN7+7
IOST EN7+3, EN7+7
>> NCOPY EN6+1*, EN6+2, EN6+3*
>> NI EN1+7*
>> NI(1 EN1+7*
NOD1 EN2+1*, EN2+6*, SVPOSSVPOS+1, SVPOS+5, SVPOS+6, SVPOS+7, EN3+1*, CHECK+1*, EN9+1
EN9+2!
NOD2 EN2+1*, EN2+6*, SVPOSEN3+1*, CHECK+1*, EN9+1, EN9+2!
NOD2(1 CHECK+1*
NPI SVPOS+8!
NPI1 SVPOS+8!
NPNT SVPOS*, SVPOS+2, SVPOS+8!
NPNT(1 SVPOS+2*, SVPOS+4
>> NPSPOS EN2+1*, SVPOS*
>> NPSPOS(0 EN2+1*, SVPOS*
>> NPSPOS(1 EN2+1*, SVPOS*
>> NPSPOS(2 SVPOS+4*
>> NPSPOS(3 SVPOS+5*, SVPOS+6*
>> NPSPOS(4 SVPOS+5*, SVPOS+7*
NUI EN3+2*, EN3+3!, CHECK+1
NUI(1 EN3+2*, CHECK+1
NUR EN4+1!, EN5+1!, EN9+1*
NUR(1 EN9+1*
>> NUR2114D SVPOS+1*
NURFLAG SVPOS+2*, SVPOS+8!, EN3+1*, EN3+2, CHECK+1*
NURI EN1+8!
>> NUROUT EN7+2*
>> NURQUEUE EN7+7*
>> NURQUIT EN6+2*, EN7+2*
NURS SVPOS+8!, EN8+2, EN8+3, EN8+4, EN8+5!, EN8+6!, EN8+8!
NURS("AE" EN2+4*, EN2+6
NURS("HELP" EN8+2*, EN8+5
NURS(0 EN8+2*, EN8+3
NURS(1 EN8+4*, EN8+7
>> NURS132 EN7+1, EN7+4
NURSDT EN1~, EN1+6*, EN1+7, EN1+8!
NURSEMP EN1~, EN1+7, EN1+8!
>> NURSTAT EN1+6*, EN1+7*, EN1+10
>> NURSX EN2+3*, EN2+4, EN2+6*
>> NURSZ EN2+3*, EN2+4
PDA EN11+1*, EN11+2, EN12+2*, EN12+3!
>> POP EN7+2, EN7+7*
>> PRSE EN11+2*
>> SC44DA SVPOS+1*
>> SDA EN12+2*, EN12+3, EN13+2*
SSN EN11+1*, EN12+2*, EN12+3!
U EN1+7, EN2+2, SVPOSSVPOS+2, EN3+1, CHECK+1, EN4+1, EN5+1, EN6+2, EN8+2
EN8+3, EN8+7, EN9+1, EN11+1, EN11+2, EN12+2, EN12+3
>> VA200DA EN11+1*
X EN4+1, EN5+1, EN7+6*, EN8+5*!, EN8+6*!, EN8+7, EN12+1~, EN13+1~
XQH EN7+3*!
>> XXX EN12+2*, EN12+3*, EN12+4, EN13+2*, EN13+3
Y EN8+5, EN8+6, EN12+1~, EN12+3*, EN13+1~, EN13+2*
>> Z EN13+2*
>> ZTDESC EN7+5*
>> ZTIO EN7+7*
>> ZTRTN EN7+5
>> ZTSAVE( EN7+6*
ZTSK EN7+1!, EN7+7
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