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

Package: Inpatient Medications

Routine: PSGFILD3


Information

PSGFILD3 ;BIR/CML3-RETURN OF VARIOUS FILES' UPKEEP ;12 DEC 97 / 10:53 AM

Source Information

Source file <PSGFILD3.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 6 EN^DDIOL  ^DIC  DO^DIC1  FILE^DICN  ^DIE  ^DIR  
Inpatient Medications 1 (END,ENS)^PSGIU  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Pharmacy Data Management 2 PSSJU DRUG/ATC SET UP  PSSJU MARK UD ITEMS  
Inpatient Medications 1 ROOM-BED  

Entry Points

Name Comments DBIA/ICR reference
ATCCNS ;
ATCED ;
ENRBQ ;
ENIUH ;
ENRBLU ;
ENIU ; mark/unmark drugs for Unit Dose use
ENATC ;
ATCH ;

External References

Name Field # of Occurrence
EN^DDIOL ENRBLU+3
^DIC ENRBLU+2, ENRBQ+2, ENATC+4, ENIU+4
DO^DIC1 ENRBLU+2, ENRBQ+2
FILE^DICN ATCCNS+2
^DIE ATCED+2, ATCCNS+1
^DIR ENATC+1, ATCED+2, ENIU+2
END^PSGIU ENIU+4
ENS^PSGIU ENIU+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!?3,"NOTE: No PHARMACY ward groups are found. You will not be able to enter",!?9,"canister numbers for selected drugs.",!
  • Line Location: ENATC+3
Function Call: WRITE
  • Prompt: !,"...working..."
  • Line Location: ATCED+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: ATCCNS+1
Function Call: WRITE
  • Prompt: !!?2,"Enter 'M' to set up your drugs for use with multiple ATC Dispensing machines,",!,"for which you will have to enter a canister number for each ward group. Enter",!,"'O' to set up your drugs for use with one ATC Dispensing machine"
  • Line Location: ATCH+1
Function Call: WRITE
  • Prompt: ", for which",!,"the ward groups will be automatically set up for each canister number.",!,"CHOOSE FROM:",!?5,"O - ONE ATC",!?5,"M - MULTIPLE ATCS"
  • Line Location: ATCH+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENIU+2
Function Call: WRITE
  • Prompt: "..."
  • Line Location: ENIU+4
Function Call: WRITE
  • Prompt: "UN"
  • Condition for execution: PSGY="U"
  • Line Location: ENIU+4
Function Call: WRITE
  • Prompt: "MARKED..."
  • Line Location: ENIU+4
Function Call: WRITE
  • Prompt: !!?2,"Enter 'M' to mark items for use by the Unit Dose Medications package. (You",!,"will only be shown items that have not been marked for Unit Dose.)",!?2,"Enter 'U' to unmark items that have previously been marked for use with Unit"
  • Line Location: ENIUH+1
Function Call: WRITE
  • Prompt: !,"Dose. (You will be shown only items that have already been marked for Unit",!,"Dose.)",!!,"Choose from:",!?3,"M MARK ITEMS FOR UNIT DOSE",!?3,"U UNMARK ITEMS FOR UNIT DOSE"
  • Line Location: ENIUH+2
Routine Call
  • DIE
  • Line Location:
    • ATCED+2
    • ATCCNS+1
Routine Call
  • DIC
  • Line Location:
    • ENRBLU+2
    • ENRBQ+2
    • ENATC+4
    • ENIU+4
Routine Call
  • DIR
  • Line Location:
    • ENATC+1
    • ATCED+2
    • ENIU+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(405.4 - [#405.4] Classic Fileman Calls
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(57.5 - [#57.5] ENATC+2, ENATC+3, ATCED+1
^PS(57.7 - [#57.7] ENRBLU+3
^PSDRUG - [#50] ATCED+2, ATCCNS+1

Label References

Name Line Occurrences
ATCCNS ATCED+2
ATCED ENATC+4

Naked Globals

Name Field # of Occurrence
^( ENATC+2
^(0 ENATC+2, ATCED+2*, ATCCNS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATC ENATC+2*, ENATC+3, ENATC+4, ENATC+5!, ATCED+1, ATCED+2
ATCN ENATC+5!, ATCED+2*, ATCCNS+1, ATCCNS+2
D ENRBQ+1~
>> D0 ENRBLU+3
DA ENRBLU+1~, ENRBQ+1~, ENATC+5!, ATCED+1!*, ATCED+2, ATCCNS+1*
DA(1 ENRBQ+1, ATCED+2*, ATCCNS+1, ATCCNS+2
DA(2 ENRBLU+1
DD ATCCNS+2!
DIC ENRBLU+1~, ENRBLU+2*, ENRBQ+1~, ENRBQ+2*, ENATC+4*!, ENATC+5!, ATCCNS+2*, ENIU+3!, ENIU+4*!
DIC("A" ENIU+4*
DIC("DR" ATCCNS+2*
DIC("S" ENRBLU+2*, ENRBQ+2*, ENATC+4*, ENIU+4*
DIC(0 ENRBLU+2*, ENRBQ+2*, ENATC+4*, ATCCNS+2*, ENIU+4*
DIE ENRBLU+1~, ENRBQ+1~, ENATC+5!, ATCED+1*, ATCCNS+1*
DIR ENATC+1!, ENATC+5!, ATCED+2!, ENIU+1!, ENIU+2!
DIR("?" ENATC+1*, ENIU+1*
DIR("A" ENATC+1*, ENIU+1*
DIR("B" ENATC+1*, ENIU+1*
DIR(0 ENATC+1*, ATCED+2*, ENIU+1*
DIROUT ENATC+2, ENATC+5!, ENIU+2!
DIRUT ENATC+2, ENATC+5!, ENIU+2!
DIX ENRBLU+1~
DLAYGO ENATC+5!, ATCCNS+2*
DO ENRBLU+1~, ENRBQ+1~, ATCCNS+2!
DR ENRBLU+1~, ENRBQ+1~, ENATC+5!, ATCED+1!*, ATCCNS+1*
DR(2 ATCED+1*
DTOUT ENATC+2, ENATC+5!, ENIU+2!
DUOUT ENATC+5!, ENIU+2!
DZ ENRBQ+1~
FQ ENATC+4*, ENATC+5!, ATCED+2*, ATCCNS+1, ATCCNS+2, ENIU+5!
PSGS ENIU+3*, ENIU+4, ENIU+5!
PSGW ENATC+2!*, ENATC+3, ENATC+5!, ATCED+2
PSGW( ENATC+2*, ATCED+2
PSGY ENIU+3*, ENIU+4, ENIU+5!
PSIUDA ENIU+4*, ENIU+5!
PSIUX ENIU+3*, ENIU+5!
>> Q ENATC+2*
X ENRBLU+2!, ENRBLU+3!, ENRBLU+4*, ENRBQ+1*, ENATC+5!, ATCCNS+2*, ENIU+2!
XQH ENRBQ+1~
Y ENRBLU+1*, ENRBLU+2, ENRBQ+1*, ENRBQ+2, ENATC+2, ENATC+4, ENATC+5!, ATCED+1, ATCED+2, ENIU+2!
, ENIU+3, ENIU+4
Y(0 ENRBLU+4
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