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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGOE2

Package: Inpatient Medications

Routine: PSGOE2


Information

PSGOE2 ;BIR/MV-CHECK INACTIVE DRUG ; 23 Sep 98 / 8:38 AM

Source Information

Source file <PSGOE2.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Inpatient Medications 7 PSGOE1  PSGOEE  PSGOER0  PSGOERS  PSGOEV  PSJCOM  PSJHLV  

Entry Points

Name Comments DBIA/ICR reference
CHK ; check for valid reply and questions
CHKDD(F) ;*** Check inactive dispense drug within the order.
DDOK(PSJF,OI) ;Check to be sure all dispense drugs that are active in the
CHKDRG ;*** Check inactive Orderable Item/disp drug and also if marked for UD
OIOK(X) ; Check to be sure orderable item is valid
; input: X - IEN of orderable item
; Output: 0 - invalid
; 1 - valid
STUFFDD() ;*** Stuff DD in ^PS(53.1 only if a valid DD is 1 to 1 link to OI.

External References

Name Field # of Occurrence
NOW^%DTC STUFFDD+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $S(PSGOEA="P":"RINT",1:"HOW")
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: "OPY"
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: " (DISCONTINUE)"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: $S(PSGOEA="R"&PSGRRF:"EINSTATE",1:$P("^YPASS^ISCONTINUE^DIT^INISH^OLD^NCOMPLETE^OG DISPLAY^ENEW^ERIFY","^",$F("BDEFHILRV",PSGOEA)))
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: CHK+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] OIOK+4, OIOK+5
^PS(53.1 - [#53.1] STUFFDD+6
^PSDRUG - [#50] CHKDD+16, STUFFDD+6, DDOK+12
^PSDRUG("ASP" STUFFDD+6

Label References

Name Line Occurrences
$$DDOK CHKDRG+3
$$OIOK CHKDRG+5

Naked Globals

Name Field # of Occurrence
^( CHKDD+15
^("I" CHKDD+16, STUFFDD+6, DDOK+12
^(2 DDOK+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STUFFDD+4
>> C CHK+1*, CHK+5*
DDCNT DDOK+7~*, DDOK+11*, DDOK+13
DRG CHKDRG+1~, CHKDD+13~, CHKDD+15*, STUFFDD+5~, STUFFDD+6*
DRGPT CHKDRG+1~, CHKDD+13~, CHKDD+15*, CHKDD+16
DT CHKDD+15, CHKDD+16, OIOK+6
F CHKDD~, CHKDD+14, CHKDD+15
INACTDT CHKDRG+1~, CHKDD+15*
ND DDOK+7~, DDOK+9*, DDOK+10, DDOK+12
OI DDOK~, DDOK+12
>> PSGACT CHK+3, CHK+4
PSGDFLG CHKDRG+1!, CHKDRG+3*, CHKDD+13~, CHKDD+14*, CHKDD+15, CHKDD+16*, CHKDD+17
PSGDI CHKDRG+1!, CHK+2
>> PSGDT STUFFDD+4*, STUFFDD+6, DDOK+10, DDOK+12
>> PSGE CHKDRG+5*
PSGINDT CHKDD+13~, CHKDD+14*, CHKDD+15*, CHKDD+17
>> PSGODF CHK+2
>> PSGOEA CHK+1, CHK+2, CHK+3*, CHK+4, CHK+5
>> PSGOENG CHK+2
>> PSGORD CHKDRG+3, STUFFDD+6
>> PSGP CHKDRG+3
>> PSGPD CHKDRG+3, CHKDRG+5
PSGPFLG CHKDRG+1!, CHKDRG+5*, CHK+2
>> PSGPI CHK+2
>> PSGR CHKDRG+5*
>> PSGRRF CHK+4
PSJ DDOK+7~, DDOK+9*
PSJF DDOK~, DDOK+8, DDOK+9
>> PSJPCAF CHK+2
>> PSJSYSU DDOK+8
Q STUFFDD+5~*, STUFFDD+6*, STUFFDD+7
QPT STUFFDD+5~*, STUFFDD+6*, STUFFDD+7
U CHKDD+15, CHKDD+16, STUFFDD+6, DDOK+10, DDOK+12, OIOK+5
X CHKDRG+1~, STUFFDD+5~*, STUFFDD+6*, DDOK+7~*, DDOK+9, DDOK+12*, DDOK+13, OIOK~, OIOK+4, OIOK+5*
, OIOK+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All