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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJPRE4P

Package: Inpatient Medications

Routine: PSJPRE4P


Information

PSJPRE4P ; B'ham ISC/CML3 - POST INIT ;2/11/92 16:49

Source Information

Source file <PSJPRE4P.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 NOW^%DTC  ^DIC  FILE^DICN  
Inpatient Medications 1 ENS^PSGIU  

Entry Points

Name Comments DBIA/ICR reference
1 ; laygo into key sub-file of 200
ENAK ; assign keys
KDONE ;
2 ; laygo into holder sub-file of 19.1

External References

Name Field # of Occurrence
NOW^%DTC PSJPRE4P+3, PSJPRE4P+9
^DIC ENAK+1
FILE^DICN ENAK+1, 1+2, 2+2
ENS^PSGIU PSJPRE4P+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"POST INIT STARTED at ",Y,"..."
  • Line Location: PSJPRE4P+3
Function Call: WRITE
  • Prompt: !,"...Updating the DRUG file for IV ADDITIVES and IV SOLUTIONS..."
  • Line Location: PSJPRE4P+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: PSJPRE4P+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PSJPRE4P+6
Function Call: WRITE
  • Prompt: !!,"...I must delete and rebuild the 'B' cross-reference of your Drug File (50)..."
  • Line Location: PSJPRE4P+7
Function Call: READ
  • Timeout: 0
  • Variable: Q
  • Line Location: PSJPRE4P+8
Function Call: WRITE
  • Prompt: !,"...currently on entry number ",X," (",Y,")..."
  • Line Location: PSJPRE4P+8
Function Call: WRITE
  • Prompt: !,"...POST INIT COMPLETED at ",Y,"."
  • Line Location: PSJPRE4P+9
Function Call: WRITE
  • Prompt: !!,"...creating key holders..."
  • Line Location: ENAK+2
Routine Call
  • DIC
  • Line Location:
    • ENAK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19.1 - [#19.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSJPRE4P+3, PSJPRE4P+9
^DD(19.1 2+1
^DD(19.12 ENAK+3
^DD(200 1+1
^DIC(19.1 - [#19.1] 2+1*
^PS( PSJPRE4P+5
^PS(59.4 - [#59.4] ENAK+3, ENAK+5
^PS(59.7 - [#59.7] PSJPRE4P+9*
^PSDRUG - [#50] PSJPRE4P+8
^PSDRUG("B" PSJPRE4P+8!*
^VA(200 - [#200] 1+1*
^XUSEC( ENAK+6
^XUSEC("PSJ PHARM TECH" ENAK+7
^XUSEC("PSJ RPHARM" ENAK+7
^XUSEC("PSJU PL" ENAK+7
^XUSEC("PSJU RPH" ENAK+4

Label References

Name Line Occurrences
@( ENAK+6, ENAK+7
ENAK PSJPRE4P+6

Naked Globals

Name Field # of Occurrence
^( PSJPRE4P+5, PSJPRE4P+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSJPRE4P+3, PSJPRE4P+9
DA KDONE+1!, 1+1!, 2+1!
DA(1 1+2*, 2+2*
DIC ENAK+1!*, KDONE+1!, 1+1!, 1+2*, 2+1!, 2+2*
DIC(0 ENAK+1*, 1+2*, 2+2*
>> DINUM 1+2*
DLAYGO ENAK+1*, KDONE+1!, 1+2*, 2+2*
HOLDER ENAK+3*, ENAK+4*, ENAK+5, ENAK+6, ENAK+7*, KDONE+1!, 1+1, 1+2, 2+2
KEY ENAK+1*, ENAK+4*, ENAK+5*, ENAK+6, ENAK+7*, KDONE+1!, 1+2, 2+1, 2+2
KEY1 ENAK+5, KDONE+1!
KEY2 ENAK+4, ENAK+6, KDONE+1!
KEY3 ENAK+7, KDONE+1!
KEYF ENAK+3*, ENAK+6, ENAK+7, KDONE+1!
PSIUDA PSJPRE4P+5*, PSJPRE4P+9!
PSIUX PSJPRE4P+5*, PSJPRE4P+9!
PSJC ENAK+3*, ENAK+4*, ENAK+7*, KDONE+1!
PSJSF ENAK+3!*, ENAK+5, KDONE+1!
PSJSF( ENAK+3*, ENAK+5
Q PSJPRE4P+8*, ENAK+3*, ENAK+5*, KDONE+1!
Q1 PSJPRE4P+5*, PSJPRE4P+9!
Q2 PSJPRE4P+5*, PSJPRE4P+9!
X PSJPRE4P+8*, ENAK+1*, KDONE+1!, 1+2*, 2+2*
Y PSJPRE4P+3*, PSJPRE4P+8*, PSJPRE4P+9*, ENAK+1, KDONE+1!
>> Z PSJPRE4P+8*
Info |  Source |  Call 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