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

Package: Inpatient Medications

Routine: PSGOE7


Information

PSGOE7 ;BIR/CML3 - SELECT DRUG ;Mar 25, 2020@13:21:35

Source Information

Source file <PSGOE7.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Inpatient Medications 10 $$ENDDN^PSGMI  (END,ENDDC)^PSGSICHK  KILL^PSJBCMA5  $$ISCLOZ^PSJCLOZ  ($$DGCKIEN,$$PSJSUPCK)^PSJDGCK  DIN^PSJDIN  ENKILL^PSJLMUDE  $$OINAME^PSJLMUTL  
($$PADECL,$$PADEWD)^PSJPAD50  READ^PSJUTL  
VA FileMan 5 (,LIST)^DIC  MIX^DIC1  YN^DICN  $$GET1^DIQ  ^DIR  
National Drug File 1 $$PROD0^PSNAPIS  
Outpatient Pharmacy 1 ^PSOCLO1  
Registration 1 INP^VADPT  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Inpatient Medications 14 PSGOD  PSGOE0  PSGOE8  PSGOE9  PSGOEEW  PSGOEF  PSGOER0  PSGOERS  
PSJDGCK  PSJHL7  PSJOE1  PSJOEEW  PSJOREN  PSJORPOE  

Entry Points

Name Comments DBIA/ICR reference
AD ; Ask Drug
AD1 ;
DGCKX
DO ; dosage ordered
DONE ;
NF ;
NFOH ;
CHKDRG(DRG) ; Determine if dispense drug is valid for Unit Dose.
SNFM ; show non-formulary message
GTNEDFD(APP,PDRG) ; Find defaults from Orderable Item.
PKGFLG(PKF) ;Return 0 for not in range of acceptable package flags, 1 for within range
GCN(PSGIENID) ;Return 0 for not matched, 1 for matched with no GCNSEQNO, 1^1 for matched with a GCNSEQNO

External References

Name Field # of Occurrence
^DIC NF+7
LIST^DIC DGCKX+10
MIX^DIC1 AD1+29
YN^DICN NF+5
$$GET1^DIQ AD1+20, AD1+21, AD1+22, DGCKX+3, DGCKX+4, DGCKX+7
^DIR AD1+8
$$ENDDN^PSGMI DGCKX+10
END^PSGSICHK DO+11
ENDDC^PSGSICHK DO+6
KILL^PSJBCMA5 AD+2
$$ISCLOZ^PSJCLOZ DO+8
$$DGCKIEN^PSJDGCK DGCKX+3
$$PSJSUPCK^PSJDGCK AD1+30
DIN^PSJDIN DGCKX+4
ENKILL^PSJLMUDE AD+3
$$OINAME^PSJLMUTL DGCKX+7, DGCKX+8, DGCKX+9
$$PADECL^PSJPAD50 AD1+23
$$PADEWD^PSJPAD50 AD1+24
READ^PSJUTL SNFM+2
$$PROD0^PSNAPIS GCN+4
^PSOCLO1 DO+10, DO+12
INP^VADPT AD1+17
$$GET^XPAR AD1+14

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select DRUG: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: AD1+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: AD1+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AD1+8
Function Call: WRITE
  • Prompt: !!?2,"Select the medication you wish the patient to receive."
  • Line Location: AD1+12
Function Call: WRITE
  • Prompt: " You should consult",!,"with your pharmacy before ordering any non-formulary medication."
  • Condition for execution: PSJSYSU<3
  • Line Location: AD1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: AD1+12
Function Call: WRITE
  • Prompt: !!,"There are no formulary alternatives entered for this item."
  • Line Location: NF+3
Function Call: WRITE
  • Prompt: " You should consult",!,"with your pharmacy before ordering this item."
  • Condition for execution: PSJSYSU>2
  • Line Location: NF+3
Function Call: WRITE
  • Prompt: !!,Q3," has been entered as a formulary "
  • Line Location: NF+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>67
  • Line Location: NF+4
Function Call: WRITE
  • Prompt: "alternative."
  • Line Location: NF+4
Function Call: WRITE
  • Prompt: !!,"Is ",$S(Q=1:"this",1:Q3)," acceptable"
  • Line Location: NF+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NF+7
Function Call: WRITE
  • Prompt: !!?2
  • Line Location: NFOH+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(Z)+$X+2>IOM
  • Line Location: NFOH+2
Function Call: WRITE
  • Prompt: Z," "
  • Line Location: NFOH+2
Function Call: WRITE
  • Prompt: !,$G(^(Q,0))
  • Line Location: SNFM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SNFM+2
Routine Call
  • DIC
  • Line Location:
    • NF+7
Routine Call
  • DIC
  • Line Location:
    • DGCKX+10
Routine Call
  • DIR
  • Line Location:
    • AD1+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ,  LIST^DIC
^PS(50.7 - [#50.7] Classic Fileman Calls
^PS(53.1 - [#53.1] GET1^DIQ
55.01 GET1^DIQ
55.06 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.3 - [#50.3] GTNEDFD+3
^PS(50.7 - [#50.7] GTNEDFD+1
^PS(53.45 - [#53.45] AD1+1!
^PS(59.7 - [#59.7] SNFM+1
^PSDRUG - [#50] NF+2, NF+4, CHKDRG+1, GCN+2
^TMP("PSJINTER" AD+2!, AD1+1!
^TMP("PSODAOC" AD1+2!

Label References

Name Line Occurrences
$$CHKDRG NF+2
$$GTNEDFD DO+2
AD DO+4, DO+9, DO+11
AD1 AD1+29, AD1+30
DGCKX AD1+9
DO DGCKX
DONE AD1+10, AD1+11
NF DGCKX+5, DGCKX+6
NFOH NF+5
SNFM DGCKX+5, DGCKX+6

Naked Globals

Name Field # of Occurrence
^( NF+2, NF+4, SNFM+1
^("I" CHKDRG+1
^(2 CHKDRG+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DONE+1!, NF+5*, NF+6
%Y DONE+1!
ANQX DO+1~, DO+9, DO+11
APP GTNEDFD~, GTNEDFD+3
>> ARRAY("DILIST" DGCKX+10
CLOZFLG DO+8~*, DO+9, DO+12
CNT NF+2~*, NF+3, NF+4, NF+6
>> D AD+4*, AD+7*, AD+8*
DA NF+7!
DA(1 NF+7*
DFN AD1+14~, AD1+16*, AD1+17
DIC AD+4!*, AD+7*, AD+8*, DONE+1!, NF+7!*
DIC("A" NF+7*
DIC("S" AD+4*, AD+7*, AD+8*
DIC("T" AD+7*, AD+8*
DIC("W" AD1+15!, AD1+27*
DIC(0 AD+4*, NF+7*
DIR AD1+8!
DIR("A" AD1+8*
DIR(0 AD1+8*
DRG CHKDRG~, CHKDRG+1
DT CHKDRG+1
DTIME AD1+3
IOF AD1+8
IOM NFOH+2
PDRG GTNEDFD~, GTNEDFD+1, GTNEDFD+3
PKF PKGFLG~, PKGFLG+1, PKGFLG+2
PSGDGCKF AD1+9~*, DGCKX+2, DGCKX+3, DGCKX+6, DGCKX+9, DO+5
PSGDICS PSGOE7+12*, DONE+1!
>> PSGDO AD1+29*, DO+14*
>> PSGDRG AD1+29*, DGCKX+1*, DGCKX+2*, DGCKX+3*, DGCKX+4, DGCKX+5*, DGCKX+6*, DGCKX+7, DGCKX+10*, DO+4
, DO+5, DO+6, DO+8, NF+2, NF+4, NF+7
>> PSGDRGN AD1+29*, DGCKX+1*, DGCKX+2*, DGCKX+3*, DGCKX+5*, DGCKX+6*, DGCKX+10*
PSGFLG DO+1~, DO+12*
PSGGCNID GCN+1~, GCN+4*, GCN+5
PSGGCNPT GCN+1~, GCN+2*, GCN+3, GCN+4
PSGIENID GCN~, GCN+2, GCN+5, GCN+6
PSGNDFID GCN+1~, GCN+2*, GCN+3, GCN+4, GCN+5, GCN+6
>> PSGNEDFD AD1+29*, DO+2*
PSGODO AD+2!
PSGORD AD1+1!, AD1+20, AD1+21, AD1+22
>> PSGORQF AD1+3*, AD1+10*, DO+4
>> PSGP AD1+14, AD1+16, AD1+21, AD1+22, DO+6
>> PSGPDRG AD1+29*, DGCKX+7*, DGCKX+8*, DGCKX+9*, DGCKX+10, DO+2, DO+11
>> PSGPDRGN AD1+29*, DGCKX+7*, DGCKX+8*, DGCKX+9*
PSGUSRX AD1+1!, AD1+5*, DO+5, DONE+1!
>> PSGX DO+11*
PSJALLGY AD1+1!, DO+1~, DONE+1!
PSJALLGY( DO+5*
>> PSJCLAPP AD1+19
PSJCLNK AD1+15~, AD1+23*, AD1+24, AD1+26
>> PSJDGCK AD+7, AD+8, AD1+6, AD1+9, AD1+30, DGCKX+1, DGCKX+2, DGCKX+3, DGCKX+5, DGCKX+6
, DGCKX+8, DGCKX+9
PSJDOSE AD+1!
PSJDOX AD+1!
PSJLUAPP DONE+1!
>> PSJOCNT AD1+6
PSJORCL AD1+15~, AD1+19*, AD1+20*, AD1+21*, AD1+22*, AD1+23, AD1+26
PSJORD AD1+1!
>> PSJPCAF AD1+17
PSJPDLOC AD+5~, AD1+1!, AD1+26*, AD1+27
PSJPLTYP AD+5~, AD1+1!, AD1+26*, AD1+27
>> PSJSYSP AD+2, AD1+1
>> PSJSYSU AD+4, AD1+12, DGCKX, DO+4, DO+9, DO+11, NF+1, NF+3, SNFM+1
PSJTABS AD+5~, AD1+14~, AD1+25*
Q NF+5*, SNFM+1*, GTNEDFD+2~, GTNEDFD+3*
Q1 DONE+1!, NF+2*, NF+4*, NF+6
Q2 DONE+1!
Q3 DONE+1!, NF+4*, NF+5, NF+6, NFOH+1
U CHKDRG+1
VAIN AD1+14~
VAIN(4 AD1+14, AD1+17, AD1+24, AD1+26
X AD1+3*, AD1+5, AD1+6, AD1+9, AD1+10, AD1+11, AD1+12, AD1+29, DGCKX+10*, NFOH+1*
, NFOH+2, CHKDRG+1*, GTNEDFD+2~*, GTNEDFD+3*, GTNEDFD+4
>> Y AD1+29, AD1+30, DGCKX+1, DGCKX+2, DGCKX+5, DGCKX+6, DGCKX+8, DGCKX+9, DO+11, NF+1*
, NF+3*, NF+6*, NFOH+2*, SNFM+1*, SNFM+2*
>> Y(0 DGCKX+1, DGCKX+2, DGCKX+5, DGCKX+6, NF+6*
Z DONE+1!, NFOH+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