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 Total: 5

Package Total Call Graph
Inpatient Medications 4 $$ENDTC^PSGMI  $$CKPC^PSGOU  EN1^PSJHL2  DRGDISP^PSJLMUT1  
VA Fileman 1 (C,NOW)^%DTC  

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
ENRNAT(OWD,NWD,SC,OAT) ; Determine admin times for renewal orders.
SET ;
ENUNM ;
ECHK ;
ENL ;
ENGORD ; get and sort orders
SCHK ;
CKPC(DFN,OLDON,NEWON) ; Compare old provider comments to new for speed finish.
LM
ENS
MAE ; change status to expired
ENU ; update staus field to reflect expired orders, if necessary
SM
LCHK ;
ENUH ;
DS ;

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Sort by DATE or MEDICATION: M// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: PSGOS
  • Line Location: ENS+0
Function Call: READ
  • Timeout: DTIME
  • Variable: PSGOL
  • Line Location: ENL+1
Function Call: WRITE
  • Prompt: !!,"SHORT, LONG, or NO Profile? ",$S('$D(PSJPDD):"SHORT",'PSJPDD:"SHORT",1:"LONG"),"// "
  • Line Location: ENL+1
Function Call: WRITE
  • Prompt: PSGOL="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: ENL+1
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+2, ENGORD+3, ENUH+1*
^TMP("PSG" SET+3*, ENGORD+1!

Label References

Name Line Occurrences
DS ECHK+2, ECHK+3, ECHK+4
ECHK ENGORD+3
ENUH ENUNM+3
ENUNM ENGORD+2
LCHK ENL+1
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*, SET+3, ENGORD+9*, ENGORD+14*, ENGORD+15*, ENGORD+16*
>> CHK ENS, SCHK+1*, SCHK+2*, SCHK+3*, SCHK+4
DFN CKPC~, CKPC+3
>> DRG DS+1*, SET+3, ENGORD+8*, ENGORD+13*
DRUGNAME DS+1~, ENGORD+5~, ENGORD+8, ENGORD+13
DRUGNAME(1 DS+1, ENGORD+8, ENGORD+13
DTIME ENS, ENL+1
>> 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+3
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+1, SET+2*, SET+3, ENGORD+6*, ENGORD+11*
>> OOAT ENRNAT+3*, ENRNAT+5, ENRNAT+7
>> ORIFN ENUH+1*
OWAT ENRNAT+2~
OWD ENRNAT~, ENRNAT+3
>> P("PRNTON" SET+1, SET+2, ENGORD+7*, ENGORD+9, ENGORD+12*, ENGORD+16
PRNTON SET+1, SET+2*, ENGORD+6~*, ENGORD+11~*
>> PSGALO ENUNM+3
PSGDT ECHK+1~*, ECHK+2, ENUNM+1*, ENUNM+2, ENGORD+1*
PSGO1 ENUNM+4!
PSGO2 ENUNM+2*, ENUNM+4!
PSGO3 ENUNM+2*, ENUNM+4!, ENUH+1
PSGO4 ENUNM+2*, ENUNM+3, ENUNM+4!, ENUH+1
>> PSGODT ECHK+3, ECHK+4, ENGORD+1*
PSGOEEWF CKPC+1~, CKPC+3*, CKPC+4, CKPC+5, CKPC+6
>> PSGOL ECHK+5, ENL+1*, LCHK+1, LCHK+2*, LCHK+3*, LCHK+4*
>> PSGONNV ENGORD+4
>> PSGOS ENS*, SCHK+1*, SCHK+2*, SCHK+3*
>> PSGP ECHK+2, DS+1, ENUNM+2, ENGORD+3, ENGORD+6, ENGORD+8, ENGORD+11, ENGORD+13, ENGORD+14, ENUH+1
>> PSGPR ENGORD+2
PSJFLAG CKPC+1~, CKPC+3*, CKPC+4*, CKPC+5, CKPC+6*, CKPC+7
>> PSJPAD ENUNM+2, ENGORD+3
>> PSJPDD ENL+1, 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, ENGORD+3*, ENGORD+6*, ENGORD+10*, ENGORD+11
>> ST ECHK+3, ECHK+4, SET+3, ENGORD+3*, ENGORD+7*, ENGORD+12*
U ENGORD+14, ENGORD+15, CKPC+2, ENRNAT+3, ENRNAT+6
UD ENUNM+4!
>> 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