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

Package: Pharmacy Data Management

Routine: PSSFIL


Information

PSSFIL ;BIR/CML3-SON OF VARIOUS FILES' UPKEEP ; 09/15/97 13:21

Source Information

Source file <PSSFIL.m>

Call Graph

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  

Entry Points

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

External References

Name Field # of Occurrence
^DIC ENDTE+2, ENSUEP+1, ENIWPE+1, ENPDE+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, ENPDE+1
ENWAI^PSGFILD1 ENSWT+3
ENCV^PSGSETU ENOAOPT+3, ENUUEP+1
ENKV^PSGSETU ENSUEP+5, ENUUEP+1, ENIWPE+2

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
  • Variable: W
  • Timeout: X
  • 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
  • Variable: W
  • Timeout: X
  • 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
  • DIC
  • Line Location:
    • ENDTE+2
    • ENSUEP+1
    • ENIWPE+1
    • ENPDE+1
    • ENALU+1
    • ENAQ+1
Routine Call
  • DIE
  • Line Location:
    • ENOAOPT+2
    • ENSUEP+1
    • ENUUEP+1
    • ENIWPE+1
    • ENPDE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.3 - [#50.3] Classic Fileman Calls
^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)
^%ZOSF("TEST" ENOAOPT+3, ENSWT+1, ENSUEP+5, ENUUEP+1, ENIWPE+2
^DIC(42 - [#42] ENSWT+5
^PS(50.3 - [#50.3] ENALU+2
^PS(57.7 - [#57.7] ENDTE+1
^PS(59.7 - [#59.7] ENSWT+6, ENSWT+7, SW+1
^TMP("OR" ENIWPE+2!
^VA(200 - [#200] ENSUEP+3, ENUUEP+3
^XUSEC("PSJ " ENSUEP+2, ENUUEP+2
^XUTL("OR" ENUUEP+1!

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!*, ENPDE+1!*, ENPDE+2!
, 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!*, ENPDE+1!*, ENPDE+2!, ENALU+1~*, ENAQ+1~*
DIC("A" ENSUEP+1*, ENIWPE+1*, ENPDE+1*
DIC(0 ENDTE+2*, SW+1*, SW1+1*, ENSUEP+1*, ENIWPE+1*, ENPDE+1*, ENALU+1*, ENAQ+1*
DIE ENDTE+2~, ENOAOPT+2*, ENSUEP+1*, ENUUEP+1*, ENIWPE+1*, ENPDE+1*, ENPDE+2!, ENALU+1~, ENAQ+1~
>> DINUM SW+1*, SW1+1*
DIX ENALU+1~
DLAYGO ENSUEP+1*!, ENIWPE+1*, ENPDE+1*, ENPDE+2!
DO SW+1!, SW1+1!, ENALU+1~, ENAQ+1~
DR ENOAOPT+2!*, ENSUEP+1!*, ENUUEP+1!*, ENIWPE+1!*, ENPDE+1!*, ENPDE+2!, 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!
PSGS0XT ENPDE+2!
PSGS0Y ENPDE+2!
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
>> Q ENSWT+5*
R ENSUEP+3*, ENSUEP+4, ENSUEP+5!, ENUUEP+3*, ENUUEP+4
X ENDTE+1!, ENDTE+2!, ENDTE+3*, ENOAOPT+3*, ENSWT+1*, ENSWT+5*, SW+1*, SW1+1*, ENSUEP+2*, ENSUEP+3*
, ENSUEP+4, ENSUEP+5*, ENUUEP+1*, ENUUEP+2*, ENUUEP+3*, ENUUEP+4, ENIWPE+2*, ENPDE+2!, ENALU+1!, ENALU+2*!
, ENAQ+1*
Y ENDTE+2, ENDTE+3, ENSUEP+1, ENIWPE+1, ENPDE+1, ENPDE+2!, ENALU+1
Y(0 ENSUEP+1, ENALU+2
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