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

Package: Inpatient Medications

Routine: PSGPER1


Information

PSGPER1 ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ; 2/8/18 11:56am

Source Information

Source file <PSGPER1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 5 TASKPRGE^PSGPER1  ENP^PSGPER2  (ENCV,ENIVKV)^PSGSETU  ENTSK^PSGTI  $$CLINIC^PSJO1  
VA FileMan 4 ^DIC  YN^DICN  ^DIK  $$GET1^DIQ  
Kernel 3 ^%ZIS  ^%ZTLOAD  ($$DT,$$FMADD,$$HADD,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Inpatient Medications 11 PSGOE  PSGOESF  PSGPEN  PSGPER  PSGPER0  PSGPER1  PSGPER2  PSGVBW  
PSGVBW0  PSJCLOR  PSJOE  

Entry Points

Name Comments DBIA/ICR reference
DEFON() ; All Pre-Exchange Devices have been removed from Ward Parameters - restore previous functionality
TASKPRGE(PXN) ; Task purge of entry from file 53.4
EN ; Entry point
AG ;
AGMSG ;
DEV ; Select Device
PURGE ; Purge entry from file 53.4
DEFCL(PSGPXN,CLINICS) ; Default devices for Clinics
DEV1 ; Device validation loop
DEV0 ; Validate Device
DONE ;
POP ;
OUT ;

External References

Name Field # of Occurrence
^%ZIS DEV1+3, POP+3
^%ZTLOAD TASKPRGE+3
^DIC DEFCL+4
YN^DICN POP+2, AG+1
^DIK PURGE+5
$$GET1^DIQ DEFCL+6
TASKPRGE^PSGPER1 OUT+1
ENP^PSGPER2 DEV1+6
ENCV^PSGSETU OUT+4
ENIVKV^PSGSETU OUT+4
ENTSK^PSGTI DEV1+5
$$CLINIC^PSJO1 DEFCL+3
$$DT^XLFDT TASKPRGE+4
$$FMADD^XLFDT TASKPRGE+4
$$HADD^XLFDT TASKPRGE+2
$$NOW^XLFDT PURGE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PRE-EXCHANGE UNITS REPORT"
  • Line Location: DEV1+1
Function Call: WRITE
  • Prompt: !,"Do you want another chance to choose a device"
  • Line Location: POP+2
Function Call: WRITE
  • Prompt: !?3,"Enter 'YES' to choose a device to print. Enter 'NO' to quit now."
  • Line Location: POP+2
Function Call: WRITE
  • Prompt: !!,"DO YOU NEED TO PRINT THIS REPORT AGAIN"
  • Line Location: AG+1
Function Call: WRITE
  • Prompt: $C(7)," ANSWER 'YES' OR 'NO' (Entry required)"
  • Line Location: AGMSG+1
Function Call: WRITE
  • Prompt: !," Enter 'YES' to print this report again. Enter 'NO' (or an '^') to quit",!,"now. PLEASE NOTE that you will NOT be able to retrieve this data at a later",!,"date. You should print this information now."
  • Line Location: AGMSG+2
Routine Call
  • DIC
  • Line Location:
    • DEFCL+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV1+3
    • POP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] GET1^DIQ
^SC - [#44] Classic Fileman Calls
^PS(53.4 - [#53.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DEV1+2
^PS(53.4 - [#53.4] DEFCL+2, PURGE+3
^PS(59.6 - [#59.6] DEFON+1
^XTMP("PSGPER1:" TASKPRGE+1, TASKPRGE+4*, PURGE+2!

Label References

Name Line Occurrences
AG DEV1+6
AGMSG AG+1
DEFCL EN+1
DEV EN+3, EN+5
DEV0 DEV1+5, DEV1+6
DEV1 DEV+2, DEV1+4
DONE EN+4, EN+6
EN EN+4
POP EN+4, DEV1+4

Naked Globals

Name Field # of Occurrence
^( DEFON+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+4, DEV1+4, DEV1+6, POP+1*, POP+2*, POP+3*, AG+1*
>> %Y AGMSG+1
%ZIS DEV1+2!*, DEV1+3!, TASKPRGE+5!
%ZIS("A" DEV1+2*
%ZIS("B" DEV1+2*
CLINAM DEFCL+2~, DEFCL+5*, DEFCL+6
CLINDEV DEFCL+1~
CLINIC DEFCL+1~, DEFCL+3*, DEFCL+4, DEFCL+5, DEFCL+6, DEFCL+7
CLINICS DEFCL~, DEFCL+1!
CLINICS("DEV" DEFCL+6*
CLINICS("DEVX" DEFCL+6*
CLINICS("WARD" DEFCL+7*
CLINM DEFCL+1~
CLINUM DEFCL+4~*, DEFCL+5, DEFCL+6
CLINX DEFCL+1~
>> DA PURGE+5*
DFN DEV1+2, DEFCL+2~*, DEFCL+3
DIC DEFCL+4~*
DIC(0 DEFCL+4*
>> DIK PURGE+5*
IO("Q" DEV1+2!, DEV1+5
ION DEV+1, DEV0+1
IOP DEV1+2!, POP+3*, TASKPRGE+5!
LCLCL DEFCL+5~*, DEFCL+6
ON DEFON+1~*, DEFON+2*, DEFON+3, DEFCL+2*, DEFCL+3
>> POP EN+1*, EN+4, DEV1+4
PSGCURCL EN+1~, EN+5*, DEV1+2
>> PSGION DEV+1*, DEV0+1*, POP+3
PSGNOWFM PURGE+3~, PURGE+4*
PSGPERRF EN+1*, DEV1+6*, OUT+2!, POP+1, POP+2
PSGPRCL EN+2~
PSGPRCLD EN+1~*, EN+5
PSGPRCLD("DEV" EN+5, DEV1+2
PSGPRCLD("WARD" EN+3!, DEV1+2
PSGPRTYP EN+2~, EN+3*, EN+5*
PSGPXINF PURGE+3~*, PURGE+4
PSGPXN EN+1, OUT+1, OUT+2!, DEFCL~, DEFCL+2
PSGTID TASKPRGE+5!
PSGTIR DEV1+5*, TASKPRGE+5!
>> PSJCOM OUT+3
>> PSJPREX OUT+3
PSJPXDOF DEFON+2!
>> PSJSYSW0("CLINIC" DEFCL+5, DEFCL+6
PXN TASKPRGE~, TASKPRGE+1, TASKPRGE+4, PURGE+1, PURGE+2, PURGE+3, PURGE+5
U DEFON+1
W DEFON+1~*
X DEFCL+4~*
Y DEFCL+4~
ZTDESC DEV1+5*, TASKPRGE+2*, TASKPRGE+5!
ZTDTH DEV1+5*, TASKPRGE+2!*, TASKPRGE+5!
ZTIO TASKPRGE+2!*
ZTRTN TASKPRGE+2*, TASKPRGE+5!
ZTSAVE DEV1+5!, TASKPRGE+5!
ZTSAVE("DFN" DEV1+5*
ZTSAVE("PSGCURCL" DEV1+5*
ZTSAVE("PSGPRTYP" DEV1+5*
ZTSAVE("PSGPXN" DEV1+5*
ZTSAVE("PXN" TASKPRGE+2*
ZTSK DEV1+5!, TASKPRGE+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