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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSJMPRTU

Package: Inpatient Medications

Routine: PSJMPRTU


Information

PSJMPRTU ;BIR/MV-SETUP AND PRINT UD ORDER ;25 NOV 96 / 1:34 PM

Source Information

Source file <PSJMPRTU.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 3 $$ENDTC^PSGMI  DRGDISP^PSJLMUT1  $$PRTCHK^PSJMUTL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSJMIV  PSJMPRT  

Entry Points

Name Comments DBIA/ICR reference
HDR ;
G ;
P ;
SETPVAR ;
SETALL ;
PSJPRT(C1,C2,C3,C4,C5,C6,C7,C8,C9)
START ;
PRT ;
W ;
NEWPG ;

External References

Name Field # of Occurrence
$$ENDTC^PSGMI HDR+9
DRGDISP^PSJLMUT1 PRT+6
$$PRTCHK^PSJMUTL HDR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PSJPRT(1),?39,PSGLOD," | "
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: "P E N D I N G"
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: PSGLSD," | ",PSGLFD
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,$G(PSJPRT(X+1))
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: ?39,MARX(X)
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !?39
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?39
  • Condition for execution: ($L(Y1)+$X)>79
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: Y1_" "
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?39,"RN/LPN Init: ________"
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: PSJHL62
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,PSJHL1,?66,"Page: ",PSGPG,!,PSJHL2
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $E(PSJADT,1,2)="88"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,PSJHL3,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"For date: ",$E($$ENDTC^PSGMI(PSJADT1),1,8),!
  • Line Location: HDR+9

Label References

Name Line Occurrences
@( NEWPG+1, NEWPG+2, NEWPG+3
HDR PRT+1
NEWPG START+3
PSJPRT P+5, W+7, W+8, W+9
SETALL NEWPG+1, NEWPG+2, P+1, P+2, W+1, W+2
SETPVAR P+5, W+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C1 PSJPRT~, PSJPRT+1
C2 PSJPRT~, PSJPRT+1
C3 PSJPRT~, PSJPRT+1
C4 PSJPRT~, PSJPRT+2
C5 PSJPRT~, PSJPRT+2
C6 PSJPRT~, PSJPRT+2
C7 PSJPRT~, PSJPRT+3
C8 PSJPRT~, PSJPRT+3
C9 PSJPRT~, PSJPRT+3
IOF HDR+5
IOST NEWPG+2, HDR+5
MARX PRT+5~, PRT+6
MARX( PRT+7
>> ON START+2, SETPVAR+3, PRT+6
>> PID SETALL+2, W+5
>> PID1 START+1*, SETALL+2*, P+5, W+5*, W+7, W+8, W+9, SETPVAR+1*
>> PPN SETALL+1, P+2, W+5
>> PPN1 START+1*, SETALL+1*, P+5, W+5*, W+7, W+8, W+9, SETPVAR+1*
>> PPNO SETALL+1*, P+2, W+5*
>> PRB SETALL+1, W+4, W+5
>> PRB1 START+1*, SETALL+1*, P+5, W+4*, W+5*, W+7, W+8, W+9, SETPVAR+2*
>> PRBO SETALL+1*, W+4*
>> PSGLFD PRT+4
>> PSGLOD PRT+2
>> PSGLSD PRT+4
>> PSGP PRT+6
>> PSGPG HDR+1, HDR+4, HDR+5, HDR+6*, HDR+7
>> PSGRBADM W+7, W+8, W+9
>> PSGSS NEWPG+1, NEWPG+2, NEWPG+3
>> PSGTM SETALL+4
>> PSGTMALL SETALL+4
>> PSGWN SETALL+2, W+5
>> PSGWN1 START+1*, SETALL+2*, P+5, W+5*, W+7, W+8, W+9, SETPVAR+2*
>> PSJADT NEWPG+1, SETALL+1, HDR+8
>> PSJADT1 SETALL+1*, HDR+9
>> PSJADTO NEWPG+1, SETALL+1*
>> PSJASTR HDR+1, HDR+3*
>> PSJATME SETALL+1, P+3, W+3
>> PSJATME1 START+1*, SETALL+1*, P+3*, P+4*, P+5, W+3*, W+7, W+8, W+9, SETPVAR+3*
, SETPVAR+5*
>> PSJATMEO START+2*, SETALL+1*, P+3*, W+3*
>> PSJHL1 SETALL+4*, HDR+7
>> PSJHL2 HDR+7
>> PSJHL3 NEWPG+1*, HDR+8
>> PSJHL62 HDR+3
>> PSJHOLD PRT+9
>> PSJLN NEWPG+2, SETALL+5*, P+1, W+1, PRT+1, PRT+14*, HDR+6*
>> PSJNEED NEWPG+2, P+1, W+1, PRT+1, PRT+14
>> PSJONCAL PRT+11
>> PSJONETM PRT+10
>> PSJPRT( PRT+7
>> PSJPRT(1 PSJPRT+1*, PRT+2
>> PSJPRT(2 PSJPRT+2*
>> PSJPRT(3 PSJPRT+3*
>> PSJSI PRT+8
>> PSJSTOP PRT+1
>> PSJTOTLN P+1, W+1, PRT+1, HDR+2
>> QST PRT+3, PRT+6
SP START+2~*, W+7, W+9, SETPVAR+1, SETPVAR+2, SETPVAR+5
>> TM SETALL+3, SETALL+4, W+2
>> TM1 START+1*, SETALL+4*
>> TMO SETALL+3*, W+2
U P+5, W+8, SETPVAR+1
X SETPVAR+3*, SETPVAR+4*, SETPVAR+5, PRT+5~, PRT+7~*, HDR+1*, HDR+2*
>> XNAME NEWPG+1
>> Y PRT+8*
>> Y1 PRT+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All