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

Package: Inpatient Medications

Routine: PSGOU


Information

PSGOU ;BIR/CML3,MV-PROFILE UTILITIES ;19 SEP 96 / 3:59 PM

Source Information

Source file <PSGOU.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 6 $$ENDTC^PSGMI  $$CKPC^PSGOU  EN1^PSJHL2  DRGDISP^PSJLMUT1  ($$CLINIC,$$CLINSORT)^PSJO1  ($$CLORCHK,$$RECDCEXP)^PSJP  
VA FileMan 1 (C,NOW)^%DTC  

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

Package Total Caller Graph
Inpatient Medications 17 PSGEUD  PSGO  PSGOE0  PSGOE5  PSGOERS  PSGOU  PSGPL1  PSGPLUP0  
PSGPR  PSGRET  PSGVBW0  PSGVBW1  PSIVOPT2  PSJADT0  PSJCOMR  PSJEXP  
PSJPR0  

Entry Points

Name Comments DBIA/ICR reference
ECHK ;
DS ; Get drug name
SET ; Set orders into TMP
ENS
ENL ; Ask profile type
SCHK ; Sort type
SM
LCHK ; Long or short profile
LM
ENU ; update status field to reflect expired orders, if necessary
ENUNM ;
ENGORD ; get and sort orders
MAE ; change status to expired
ENUH ;
CKPC(DFN,OLDON,NEWON) ; Compare old provider comments to new for speed finish.
ENRNAT(OWD,NWD,SC,OAT) ; Determine admin times for renewal orders.

External References

Name Field # of Occurrence
C^%DTC ENGORD+1
NOW^%DTC ECHK+1, ENUNM+1, ENGORD+1
$$ENDTC^PSGMI ENGORD+1
$$CKPC^PSGOU ENGORD+14
EN1^PSJHL2 ENUH+1
DRGDISP^PSJLMUT1 DS+1, ENGORD+8, ENGORD+13
$$CLINIC^PSJO1 SET+2
$$CLINSORT^PSJO1 SET+2
$$CLORCHK^PSJP ENL+2
$$RECDCEXP^PSJP ENUNM+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Sort by DATE or MEDICATION: M// "
  • Variable: PSGOS
  • Timeout: DTIME
  • Line Location: ENS+0
Function Call: READ
  • Variable: PSGOL
  • Timeout: DTIME
  • Line Location: ENL+3
Function Call: WRITE
  • Prompt: !!,"SHORT, LONG, or NO Profile? ",$S('$D(PSJPDD)!$G(PSJCLCHK):"SHORT",'PSJPDD:"SHORT",1:"LONG"),"// "
  • Line Location: ENL+3
Function Call: WRITE
  • Prompt: PSGOL="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: ENL+3
Function Call: WRITE
  • Prompt: "MEDICATION"
  • Line Location: SCHK+2
Function Call: WRITE
  • Prompt: $P(X,PSGOS,2)
  • Line Location: SCHK+3
Function Call: WRITE
  • Prompt: !!?3,"Enter 'MEDICATION' (or 'M', or press the RETURN key to have this patient's orders shown alphabetically by drug name. Enter 'DATE' (or 'D') to have this patient's orders shown by start date (the newest orders showing first)."
  • Line Location: SM+0
Function Call: WRITE
  • Prompt: " Enter a '^' to not show this patient's orders."
  • Line Location: SM+1
Function Call: WRITE
  • Prompt: $S('$D(PSJPDD):" SHORT",'PSJPDD:" SHORT",1:" LONG")
  • Line Location: LCHK+2
Function Call: WRITE
  • Prompt: $P(X,PSGOL,2)
  • Line Location: LCHK+4
Function Call: WRITE
  • Prompt: !!?3,"Enter 'SHORT' (or 'S', or press the RETURN key) to exclude this patient's",!,"discontinued and expired orders in the following profile. Enter 'LONG' (or 'L') to include those orders."
  • Line Location: LM+0
Function Call: WRITE
  • Prompt: " Enter 'NO' (or 'N') to bypass the profile com-",!,"pletely. Enter '^' if you wish to go no further with this patient."
  • Line Location: LM+1
Function Call: WRITE
  • Prompt: !!,"...a few moments, I have some updating to do..."
  • Line Location: ENU+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.1 - [#51.1] ENRNAT+3, ENRNAT+6
^PS(53.1 - [#53.1] ENGORD+6, ENGORD+7, ENGORD+11, ENGORD+12, ENGORD+15, CKPC+2, CKPC+4, CKPC+6, CKPC+7
^PS(55 - [#55] ECHK+2, ENUNM+3, ENGORD+3, ENUH+1*
^TMP("PSG" SET+5*, ENGORD+1!

Label References

Name Line Occurrences
DS ECHK+2, ECHK+3, ECHK+4, ECHK+5
ECHK ENGORD+3
ENUH ENUNM+4
ENUNM ENGORD+2
LCHK ENL+3
LM LCHK+1
SCHK ENS
SET ENGORD+9, ENGORD+17
SM SCHK+2

Naked Globals

Name Field # of Occurrence
^( CKPC+4, CKPC+6
^(4 ECHK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ECHK+1, ENUNM+1, ENGORD+1
>> C ECHK+2*, ECHK+5*, ECHK+6*, SET+2*, SET+5, ENGORD+9*, ENGORD+14*, ENGORD+15*, ENGORD+16*
>> CHK ENS, SCHK+1*, SCHK+2*, SCHK+3*, SCHK+4
CLINSORT SET+1~, SET+2*
DFN ENL+2, CKPC~, CKPC+3
>> DRG DS+1*, SET+5, ENGORD+8*, ENGORD+13*
DRUGNAME DS+1~, ENGORD+5~, ENGORD+8, ENGORD+13
DRUGNAME(1 DS+1, ENGORD+8, ENGORD+13
DTIME ENS, ENL+3
>> HDT ENGORD+1*
>> ND ECHK+2*, ECHK+3, ECHK+4, ENGORD+6*, ENGORD+7, ENGORD+11*, ENGORD+12, ENGORD+14
>> ND4 ECHK+2*, ECHK+3, ECHK+4
NEWON CKPC~, CKPC+2, CKPC+4, CKPC+6, CKPC+7
>> NF SET+5
NWD ENRNAT~, ENRNAT+6
>> O ECHK+2, DS+1, ENGORD+3*, ENGORD+6*, ENGORD+7, ENGORD+8, ENGORD+10*, ENGORD+11*, ENGORD+12, ENGORD+13
, ENGORD+14, ENGORD+15
OAT ENRNAT~, ENRNAT+3, ENRNAT+5
OLDON CKPC~, CKPC+3
>> ON ECHK+2*, SET+2, SET+3, SET+4*, SET+5, ENGORD+6*, ENGORD+11*
>> OOAT ENRNAT+3*, ENRNAT+5, ENRNAT+7
>> ORIFN ENUH+1*
OWAT ENRNAT+2~
OWD ENRNAT~, ENRNAT+3
>> P("PRNTON" SET+3, SET+4, ENGORD+7*, ENGORD+9, ENGORD+12*, ENGORD+16
PRNTON SET+3, SET+4*, ENGORD+6~*, ENGORD+11~*
>> PSGALO ENUNM+4
PSGDT ECHK+1~*, ECHK+2, ENUNM+1*, ENUNM+3, ENGORD+1*
PSGO1 ENUNM+5!
PSGO2 ENUNM+3*, ENUNM+5!
PSGO3 ENUNM+3*, ENUNM+5!, ENUH+1
PSGO4 ENUNM+3*, ENUNM+4, ENUNM+5!, ENUH+1
>> PSGODT ECHK+3, ECHK+4, ENGORD+1*
PSGOEEWF CKPC+1~, CKPC+3*, CKPC+4, CKPC+5, CKPC+6
>> PSGOL ECHK+5, ECHK+6, ENL+3*, LCHK+1, LCHK+2*, LCHK+3*, LCHK+4*
>> PSGONNV ENGORD+4
>> PSGOS ENS*, SCHK+1*, SCHK+2*, SCHK+3*
>> PSGP ECHK+2, DS+1, SET+2, ENUNM+3, ENGORD+3, ENGORD+6, ENGORD+8, ENGORD+11, ENGORD+13, ENGORD+14
, ENUH+1
>> PSGPR ENGORD+2
PSJCLCHK ENL+1~, ENL+2*, ENL+3, LCHK+2
PSJCLN SET+1~, SET+2*
>> PSJDCEXP ECHK+5, ENUNM+2*
PSJFLAG CKPC+1~, CKPC+3*, CKPC+4*, CKPC+5, CKPC+6*, CKPC+7
>> PSJPAD ENUNM+3, ENGORD+3
>> PSJPDD ENL+3, LCHK+2
>> PSJSYSU ENGORD+1, ENGORD+10
Q LCHK+3*, CKPC+1~, CKPC+4*, CKPC+6*
QQ CKPC+1~, CKPC+4*, CKPC+5, CKPC+6*, CKPC+7
>> S ENS*
SC ENRNAT~, ENRNAT+3
SCP ENRNAT+2~, ENRNAT+3*, ENRNAT+6
>> SD ECHK+2, ECHK+3, ECHK+4, ECHK+5, ENGORD+3*, ENGORD+6*, ENGORD+10*, ENGORD+11
>> ST ECHK+3, ECHK+4, SET+5, ENGORD+3*, ENGORD+7*, ENGORD+12*
U ECHK+5, ENGORD+14, ENGORD+15, CKPC+2, ENRNAT+3, ENRNAT+6
UD ENUNM+5!
>> UDU ECHK+4, ENGORD+1*
>> WAT ENRNAT+3*, ENRNAT+5
X SCHK+3*, LCHK+4*, ENGORD+1, CKPC+1~, CKPC+4*, CKPC+6*, ENRNAT+2~, ENRNAT+4*, ENRNAT+6*
>> X1 ENGORD+1*
>> X2 ENGORD+1*
Y CKPC+1~, CKPC+4*, CKPC+6*, ENRNAT+2~, ENRNAT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All