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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: NURSUT4

Package: Nursing Service

Routine: NURSUT4


Information

NURSUT4 ;HIRMFO/RM-UTILITIES FOR FILE 213.9 ;5/17/93

Source Information

Source file <NURSUT4.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Nursing Service 1 $$COMPDAT^NURSUT4  
VA FileMan 1 D^DIQ  

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

Package Total Caller Graph
Nursing Service 8 NURSAED-I-STAFFPD  NURSAED-I-STAFFPR  NURSAFUD  NURSAGP3  NURSPA  NURSUT4  ^DIC(213.9  ^NURSF(210  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM INPUT TRANSFORM FROM FIELDS 10.4 AND 10.5 ON FILE 213.9
EN2 ; EXECUTABLE HELP FROM OPTION NURAAM-ACU GRADE/STEP CODE LOAD
QUIT
DISP ;
DSP ;
EN3 ;INPUT TRANSFORM FOR FIELD 8 FILE 211.82
COMPDAT(D0) ; EXTRINSIC FUNCTION TO RETURN COMPUTED SERVICE COMPUTATION DATE
; FROM THE EMPLOYEE(#450) FILE
VALENT ;
VAL0
COMPDISP ; SERVICE COMP DATE DISPLAY

External References

Name Field # of Occurrence
D^DIQ COMPDISP+2
$$COMPDAT^NURSUT4 COMPDISP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"NURS PAY SCALE FILE IS NOT RESIDENT CANNOT CONTINUE!!"
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !!,"Enter Grade/Step Code",!,"examples: ",!,"R/E1/5 = Registered Nurse,ENTRY1,Step 5",!,"N/4/7 = Nursing Assistant,GS4,Step 7",!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSP+1
Function Call: WRITE
  • Prompt: ?52,$J(NURI(1),2),". ",$P($G(NSCD(NURI(1))),U,2)
  • Condition for execution: $G(NSCD(NURI(0)))'="" ?26,$J(NURI(0),2),". ",$P($G(NSCD(NURI(0))),U,2) W:$G(NSCD(NURI(1)))'=""
  • Line Location: DSP+5
Function Call: WRITE
  • Prompt: !,"<<More>>"
  • Line Location: DSP+8
Function Call: READ
  • Variable: NURX
  • Timeout: DTIME
  • Line Location: DSP+9
Function Call: WRITE
  • Prompt: !,"Press the return key to continue or '^' to exit: "
  • Line Location: DSP+9
Function Call: WRITE
  • Prompt: $C(7),!,"*** NOT YET IMPLEMENTED ***"
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !,?22,"Are examples of valid selections"
  • Line Location: VAL0+8
Function Call: WRITE
  • Prompt: ?$X+1,Y,?$X+1," (NO EDITING)"
  • Line Location: COMPDISP+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^NURSF(210 - [#210] COMPDAT+3
^NURSF(211.1 - [#211.1] EN2+1, DISP+2
^PRSPC - [#450] COMPDAT+4
^PRSPC("SSN" COMPDAT+3
^TMP("NURCD" EN2+2!
^VA(200 - [#200] COMPDAT+3

Label References

Name Line Occurrences
DISP EN2+3
DSP DISP+6, DSP+11
QUIT DSP+10
VAL0 VALENT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 COMPDAT~, COMPDAT+3, COMPDISP+2
DA EN2+1~, DISP+2*, DISP+3
DTIME DSP+9
I QUIT!, DISP+2*
IOF DSP+1
IOSL DSP+2
NCTR QUIT!, DISP+1*
NSCD QUIT!, DISP+1!*, DISP+2*, DISP+3
NSCD( DISP+3*, DSP+3, DSP+5
NURAQ QUIT!, DSP+1*, DSP+2
>> NURCOMP COMPDAT+3*, COMPDAT+6*, COMPDAT+7*, COMPDAT+8
>> NURDONE DISP+5*, DISP+6, DSP+7*, DSP+8, DSP+10
NUREND QUIT!
NURI QUIT!, DSP+2*, DSP+3, DSP+4, DSP+5
NURI(0 DSP+4*, DSP+5
NURI(1 DSP+4*, DSP+5
NURMAX QUIT!, DISP+1*, DISP+3*, DSP+2, DSP+7
NURMI QUIT!
NUROUT EN2+2!, DISP+5*, DISP+6, DSP+9*
NURP QUIT!
NURS QUIT!, DSP+2*, DSP+7
>> NURS1 VALENT+1*
>> NURS2 VALENT+1*, VAL0VAL0+1, VAL0+2
>> NURSBAD VALENT+1*, VAL0*, VAL0+1*, VAL0+2*, VAL0+3
>> NURSMAX VAL0VAL0+1, VAL0+2
>> NURSNALL VAL0+5, VAL0+7
>> NURSSTRT VAL0+8*
>> NURSTRT DISP+5*, DSP+2*, DSP+11*
>> NURSX VALENT+1, VAL0+3, VAL0+4, VAL0+6, VAL0+8
NURTAB QUIT!, DISP+1!
NURX DSP+9*, DSP+11, COMPDAT+2~, COMPDAT+3*
NURY COMPDAT+2~, COMPDAT+3*
NURZ COMPDAT+2~
PRSPCDA COMPDAT+3*, COMPDAT+4, COMPDAT+7!
U DSP+5, COMPDAT+3, COMPDAT+4
X EN1+1!, EN2+1~, EN3+1!, COMPDAT+2~, COMPDISP+1~
Y EN2+1~, COMPDAT+2~, COMPDAT+4*, COMPDAT+6, COMPDISP+1~, COMPDISP+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All