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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: NURA6I1

Package: Nursing Service

Routine: NURA6I1


Information

NURA6I1 ;HIRMFO/RM,JH,MD,FT-INDIVIDUAL NPSB REPORT ;8/8/96 13:34

Source Information

Source file <NURA6I1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Nursing Service 6 ^NURAKILL  EN3^NURSAGP1  (EN1,EN7)^NURSAUTL  (EN3,EN7)^NURSUT0  (CLOSE,ENDPG)^NURSUT1  $$CAT^NURSUT2  
VA Fileman 2 ^%DT  D^DIQ  
Kernel 1 $$REPEAT^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
QUIT
HEADER
WRITE
START ;
W2 ;
PRINT

External References

Name Field # of Occurrence
^%DT HEADER+2
D^DIQ W2+2, HEADER+2
^NURAKILL QUIT
EN3^NURSAGP1 NURA6I1+6
EN1^NURSAUTL NURA6I1+4
EN7^NURSAUTL WRITE+3
EN3^NURSUT0 WRITE+1
EN7^NURSUT0 NURA6I1+7
CLOSE^NURSUT1 QUIT
ENDPG^NURSUT1 HEADER
$$CAT^NURSUT2 W2+1
$$REPEAT^XLFSTR HEADER+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: NURA6I1+7
Function Call: WRITE
  • Prompt: !?5," NO RECORD FOUND FOR THIS EMPLOYEE "
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: W2+1
Function Call: WRITE
  • Prompt: $E($P(^VA(200,N2,0),U),1,20)
  • Condition for execution: +N2
  • Line Location: W2+1
Function Call: WRITE
  • Prompt: ?25,$E(NURSSN,1,3),"-",$E(NURSSN,4,5),"-",$E(NURSSN,6,9),?39,NL1,?51,$S($G(NPSPOS(1))="R"!($G(NPSPOS(1))="L"):$$CAT^NURSUT2(NPSPOS(1)),1:"")
  • Condition for execution: +NURSSN
  • Line Location: W2+1
Function Call: WRITE
  • Prompt: ?ZZ,Y
  • Line Location: W2+2
Function Call: WRITE
  • Prompt: !,"NURSING SERVICE NPSB PROFILE"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?91,Y,?109,"PAGE: ",NURPAGE
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!,?93,"TENTATIVE",!,?51,"SERVICE",?61,"DATE WORK COPY",?77,"DATE RETURNED",?93,"DATE FOR",?109,"ACTUAL DATE",!,?2,"NAME",?25,"SSN",?39,"LOCATION",?51,"CATEGORY",?61,"IS SENT OUT",?77,"FOR TYPING",?93,"FOR BOARD ACT.",?109,"OF BOARD ACT."
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",132),!
  • Line Location: HEADER+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] NURA6I1+2
^NURSF(210 - [#210] PRINT, WRITE+4, W2+2
^NURSF(211.8 - [#211.8] WRITE+1
^TMP($J START+1!, QUIT!
^VA(200 - [#200] WRITE+2, W2+1

Label References

Name Line Occurrences
HEADER START+2, WRITE
PRINT START+2
QUIT NURA6I1+4, NURA6I1+6, NURA6I1+7
W2 WRITE+4
WRITE PRINT

Naked Globals

Name Field # of Occurrence
^(0 WRITE+1
^(1 WRITE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D1 WRITE+4*, W2+2
>> DA WRITE+1*
>> DATA W2+2*
>> DIC("S" NURA6I1+5*
>> I W2+2*
IO START+2
IOF HEADER+1
IOSL WRITE
IOST HEADER, HEADER+1
>> N1 PRINT, WRITE+1, WRITE+4, W2+2
>> N2 WRITE+2, W2+1
>> NL1 WRITE+3*, W2+1
>> NLO WRITE+1*, WRITE+3
>> NOD1 WRITE+1
>> NPSPOS(1 W2+1
>> NPWARD WRITE+3*
>> NUROUT NURA6I1+3*, NURA6I1+4, NURA6I1+6, START+2*, HEADER
>> NURPAGE START+2*, HEADER+1*, HEADER+2
>> NURQUEUE NURA6I1+3*, HEADER
>> NURQUIT START+2*, WRITE, HEADER*
>> NURS132 NURA6I1+7*
>> NURSSN WRITE+2*, W2+1
>> NURSW1 START+2*, WRITE+1*, HEADER
>> POP NURA6I1+7
U WRITE+1, WRITE+2, W2+1, W2+2
>> X HEADER+2*
>> Y W2+2*, HEADER+2
>> ZTDESC NURA6I1+7*
>> ZTRTN NURA6I1+7*
>> ZTSK NURA6I1+7
>> ZZ W2+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All