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

Package: Inpatient Medications

Routine: PSGFILD0


Information

PSGFILD0 ;BIR/CML3-SON OF VARIOUS FILES' UPKEEP ; 15 May 98 / 9:25 AM

Source Information

Source file <PSGFILD0.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^DIC  DO^DIC1  (FILE,YN)^DICN  ^DIE  
Inpatient Medications 2 ENWAI^PSGFILD1  (ENCV,ENKV)^PSGSETU  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Inpatient Medications 12 PSJ AC SET-UP  PSJ IWP EDIT  PSJ OAOPT  PSJ SEUP  PSJ UEUP  PSJU SFE IV  PSJU SFEA  PSJU SFEL  
PSJU SFEM  PSJU SFEO  PSJU SFEPL  ^PS(59.6  

Entry Points

Name Comments DBIA/ICR reference
ENIWPE ; edit inpatient ward parameters
ENDTE ; default team edit
ENSWT ; set-up discontinue on all ward transfers
ENUUEP ;
ENSUEP ; supervisor edit of user parameters
SW ;
ENALU ; application look-up
ENAQ ; application query
ENOAOPT ; order action on patient transfer
SWTH ;
ENPDE ; edit primary drug
SW1 ;
ENOSD ; one-time stop date check

External References

Name Field # of Occurrence
^DIC ENDTE+2, ENSUEP+1, ENIWPE+1, ENALU+1, ENAQ+1
DO^DIC1 ENALU+1, ENAQ+1
FILE^DICN SW+1, SW1+1
YN^DICN ENSWT+1, ENSWT+4
^DIE ENOAOPT+2, ENSUEP+1, ENUUEP+1, ENIWPE+1
ENWAI^PSGFILD1 ENSWT+3
ENCV^PSGSETU ENOAOPT+3, ENUUEP+1
ENKV^PSGSETU ENSUEP+5, ENUUEP+1, ENIWPE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO TEAMS ENTERED TO CHOOSE FROM!"
  • Line Location: ENDTE+1
Function Call: WRITE
  • Prompt: !!,"Do you want the instructions for auto-discontinue set-up"
  • Line Location: ENSWT+1
Function Call: WRITE
  • Prompt: !!,"Do you want the package to set-up all of your wards for auto-discontinue"
  • Line Location: ENSWT+4
Function Call: WRITE
  • Prompt: !,PSGW(PSGX),"..."
  • Line Location: ENSWT+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: SW1+1
Function Call: WRITE
  • Prompt: !?2,"Enter ""YES"" to have the package set-up all of your wards for auto-discontinue",!,"for you. Enter ""NO"" if you prefer to set-up the wards individually. Enter ""^""",!,"to abort the set-up."
  • Line Location: SWTH+1
Function Call: WRITE
  • Prompt: !!?2,"If you answer YES, you will still be able to add, edit and delete individual",!,"wards.",!!?2,"PLEASE NOTE that this is not a flag for the package, but a one-time action.",!,"If you add new wards to your WARD LOCATION file, you will"
  • Line Location: SWTH+2
Function Call: WRITE
  • Prompt: " need to add those",!,"wards here."
  • Line Location: SWTH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENSUEP+1
Function Call: READ
  • Timeout: X
  • Variable: W
  • Line Location: ENSUEP+4
Function Call: WRITE
  • Prompt: " and a "
  • Condition for execution: X
  • Line Location: ENSUEP+4
Function Call: WRITE
  • Prompt: "PROVIDER."
  • Line Location: ENSUEP+4
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTE: Any changes made will not take effect for the corresponding users",!,"until those users completely exit and re-enter the system."
  • Line Location: ENSUEP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ENUUEP+1
Function Call: READ
  • Timeout: X
  • Variable: W
  • Line Location: ENUUEP+4
Function Call: WRITE
  • Prompt: " and a "
  • Condition for execution: X
  • Line Location: ENUUEP+4
Function Call: WRITE
  • Prompt: "PROVIDER."
  • Line Location: ENUUEP+4
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTE: Any changes made take effect immediately."
  • Line Location: ENUUEP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ENIWPE+1
Routine Call
  • DIE
  • Line Location:
    • ENOAOPT+2
    • ENSUEP+1
    • ENUUEP+1
    • ENIWPE+1
Routine Call
  • DIC
  • Line Location:
    • ENDTE+2
    • ENSUEP+1
    • ENIWPE+1
    • ENALU+1
    • ENAQ+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.35 - [#50.35] Classic Fileman Calls
^PS(53.45 - [#53.45] Classic Fileman Calls
^PS(59.6 - [#59.6] Classic Fileman Calls
^PS(59.7 - [#59.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] ENSWT+5
^PS(50.3 - [#50.3] ENALU+2
^PS(57.7 - [#57.7] ENDTE+1
^PS(59.6 - [#59.6] ENOSD+3
^PS(59.7 - [#59.7] ENSWT+6, ENSWT+7, SW+1
^TMP("PSJUSER" ENUUEP+1!
^VA(200 - [#200] ENSUEP+3, ENUUEP+3
^XUSEC("PSJ " ENSUEP+2, ENUUEP+2

Label References

Name Line Occurrences
ENSWT ENOAOPT+1
SW ENSWT+7
SW1 ENSWT+7
SWTH ENSWT+4

Naked Globals

Name Field # of Occurrence
^( ENSWT+5
^(0 ENSWT+5, ENSWT+6*, SW+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENOAOPT+1!, ENSWT+1*, ENSWT+3, ENSWT+4*, ENSWT+5, ENSWT+8*
DA ENDTE+1, ENDTE+2, ENOAOPT+2!*, SW+1!, SW1+1!, ENSUEP+1!*, ENUUEP+1!*, ENIWPE+1!*, ENOSD+3, ENALU+1~
, ENAQ+1~
DA(1 SW+1*, SW1+1*, ENALU+1
DA(2 SW1+1*
DD SW+1!, SW1+1!
DIC ENDTE+2~*, SW+1!*, SW1+1!*, ENSUEP+1!*, ENIWPE+1!*, ENALU+1~*, ENAQ+1~*
DIC("A" ENSUEP+1*, ENIWPE+1*
DIC(0 ENDTE+2*, SW+1*, SW1+1*, ENSUEP+1*, ENIWPE+1*, ENALU+1*, ENAQ+1*
DIE ENDTE+2~, ENOAOPT+2*, ENSUEP+1*, ENUUEP+1*, ENIWPE+1*, ENALU+1~, ENAQ+1~
>> DINUM SW+1*, SW1+1*
DIX ENALU+1~
>> DLAYGO ENSUEP+1*, ENIWPE+1*
DO SW+1!, SW1+1!, ENALU+1~, ENAQ+1~
DR ENOAOPT+2!*, ENSUEP+1!*, ENUUEP+1!*, ENIWPE+1!*, ENALU+1~, ENAQ+1~
DT ENSUEP+3, ENUUEP+3
DUZ ENUUEP+2, ENUUEP+3
DZ ENAQ+1~
IU ENSUEP+1*, ENSUEP+2, ENSUEP+3, ENSUEP+5!
LAYGO ENSUEP+1!
PSGW ENSWT+5!*, ENSWT+8!
PSGW( ENSWT+5*, ENSWT+7
PSGX ENSWT+7*, ENSWT+8!, SW+1, SW1+1
PSGY ENSWT+7*, ENSWT+8!, SW1+1
PSJ ENSUEP+5!, ENALU+1~*, ENALU+2
>> PSJPRE4 ENALU+1
>> PSJSYSP ENUUEP+1
PSJWD ENOSD+1~, ENOSD+3*, ENOSD+4, ENOSD+5
>> Q ENSWT+5*
R ENSUEP+3*, ENSUEP+4, ENSUEP+5!, ENUUEP+3*, ENUUEP+4
X ENDTE+1!, ENDTE+2!, ENDTE+3*, ENSWT+5*, SW+1*, SW1+1*, ENSUEP+2*, ENSUEP+3*, ENSUEP+4, ENUUEP+2*
, ENUUEP+3*, ENUUEP+4, ENOSD+2!, ENOSD+4!, ENOSD+5!, ENALU+1!, ENALU+2*!, ENAQ+1*
>> Y ENDTE+2, ENDTE+3, ENSUEP+1, ENIWPE+1, ENALU+1
>> Y(0 ENSUEP+1, ENALU+2
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