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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSGON

Package: Inpatient Medications

Routine: PSGON


Information

PSGON ;BIR/CML3 - SELECT ORDERS ;Jan 11, 2021@17:05:23

Source Information

Source file <PSGON.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
List Manager 2 FULL^VALM1  RE^VALM4  
VA FileMan 1 ^DIR  

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  PSGL  PSGL0  PSGOE0  PSGOECS  PSGOERS  PSGOESF  PSGOEVS  
PSGRET  PSIV  PSIVORC  PSIVORFE  PSIVPRO  PSIVRD  PSJCLOR2  PSJOE  
PSJOE0  

Entry Points

Name Comments DBIA/ICR reference
ENCHK ;
SET ;
SET1 ;
ENASR ; action/select read
RD1 ;W !!,$S($D(PSGPRF):"View",1:"Select"),$S(ACTION:" ACTION or",1:"")," ORDER",$S(PSGLMT>1:"S (1-"_PSGLMT,1:" (1"),"): " R X:DTIME W:'$T $C(7) S:'$T X="^" I "^"[X K ACTION Q
H1 ;
ENWO ; which orders
RDW ;
H2 ;
ENEFA ;
EFA ;
FDONE ;
FS ;
ENEFA2 ;
EFH ;

External References

Name Field # of Occurrence
^DIR H1+4, H2+29
FULL^VALM1 H1+1, EFA+4, EFA+5
RE^VALM4 H1+4

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD1+1
Function Call: WRITE
  • Prompt: !!,$S($D(PSGPRF):"View",1:"Select"),$S(ACTION:" ACTION or",1:"")," ORDER",$S(PSGLMT>1:"S (1-"_PSGLMT,1:" (1"),"): "
  • Line Location: RD1+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: RD1+1
Function Call: WRITE
  • Prompt: " (DISCONTINUE)"
  • Line Location: RD1+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: RD1+4
Function Call: WRITE
  • Prompt: $P("DISCONTINUE",X,2)
  • Line Location: RD1+5
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: RD1+6
Function Call: WRITE
  • Prompt: $P("RENEW",X,2)
  • Line Location: RD1+7
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: RD1+8
Function Call: WRITE
  • Prompt: $P("VERIFY",X,2)
  • Line Location: RD1+9
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: RD1+10
Function Call: WRITE
  • Prompt: $P("FINISH",X,2)
  • Line Location: RD1+11
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: RD1+12
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: RD1+13
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: RD1+15
Function Call: WRITE
  • Prompt: !!?2
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !!,$S(PSGONW="V":"VERIFY which orders",PSGONW="R":$S($P(PSJSYSP0,"^",3):"RENEW which orders",1:"MARK which orders for RENEWAL"),1:$S($P(PSJSYSP0,"^",5):"DISCONTINUE which orders",1:"MARK which orders for DISCONTINUATION"))," (1-",PSGLMT,"): "
  • Line Location: RDW+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RDW+2
Function Call: WRITE
  • Prompt: !!?2,"Select order",$E("s",PSGLMT>1)," to ",$S(PSGONW="V":"verify",PSGONW="R":$S($P(PSJSYSP0,"^",3):"renew.",1:"mark for renewal."),1:$S($P(PSJSYSP0,"^",5):"discontinue.",1:"mark for discontinuation."))
  • Line Location: RDW+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: RDW+4
Function Call: WRITE
  • Prompt: !!?2,"Select ",X,"s either singularly separated by commas (1,2,3), by a range of",!,X,"s separated by a dash (1-3), or a combination (1,2,4-6). To select all"
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: !,X,"s, enter 'ALL' or a dash ('-'). You can also enter '-n' to select the"
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !,"first ",X," through the 'nth' ",X," or enter 'n-' to select the 'nth' ",X,!,"through the last ",X,". If an ",X," is selected more than once, only the first",!,"selection is used (Entering '1,2,1' would return '1,2'.)."
  • Line Location: H2+3
Function Call: WRITE
  • Prompt: !?3," (10) Other Print",!?3," (11) Remarks"
  • Line Location: H2+25
Function Call: WRITE
  • Prompt: !
  • Line Location: H2+29
Function Call: READ
  • Formatting: !!
  • Prompt: "Select FIELDS TO EDIT: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EFA+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EFA+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: EFA+11
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: FDONE+1
Function Call: WRITE
  • Prompt: !!?2,"Select the fields you wish to edit, by number. Only those fields with a",!,"number to the left of the field name are editable."
  • Line Location: EFH+1
Routine Call
  • DIR
  • Line Location:
    • H1+4
    • H2+29

Label References

Name Line Occurrences
@( EFA+5
EFA EFA+4, EFA+5, EFA+11, FDONE+1
EFH EFA+5
ENCHK RD1+13, RDW+4
FDONE EFA+8
FS EFA+10
H1 RD1+14
H2 H1+3, RDW+3, EFA+4, EFA+5
RD1 RD1+4, RD1+6, RD1+8, RD1+10, RD1+12, RD1+13, RD1+14, RD1+15
RDW RDW+3, RDW+4
SET ENCHK+3
SET1 SET+2, SET+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION ENASR+2*, RD1+1!, RD1+2!, RD1+3, RD1+5, RD1+7, RD1+9, RD1+11, H1+1
DIR H1+4~, H2+29!
DIR(0 H1+4*, H2+29*
DTIME RD1+1, RDW+2, EFA+1
>> P("APPT" H2+15, H2+27
>> P("CLIN" H2+15, H2+27
>> P("DTYP" H2+23
>> P("OT" H2+20
>> P("PON" H2+5, EFA+4, EFA+5
>> P(4 H2+20, H2+23
PS H2+7~*, H2+8, H2+9, H2+19~*, H2+20, H2+21
>> PSGEFN SET1+1, H2+1, H2+4, H2+6, H2+18, ENEFA+1, EFA+9, ENEFA2+1
>> PSGEFN( SET1+1, EFA+7, FS+1, FS+3
>> PSGLMT ENCHK+1, ENCHK+2, SET+1, SET1+1, RD1+1, H1+3, ENWO+1*, RDW+1, RDW+3
PSGODDD ENCHK+1!*, SET1+2, SET1+4*, SET1+5
PSGODDD( SET1+2, SET1+4*, SET1+5*
PSGODDD(1 ENCHK+1*
>> PSGOESF SET1+2
>> PSGONC RD1+3, RD1+5, H1+2, ENWO+1
>> PSGONF RD1+11, H1+2
>> PSGONR RD1+7, H1+2, ENWO+1
>> PSGONV RD1+9, H1+2, ENWO+1
>> PSGONW ENWO+1, RDW+1, RDW+3
>> PSGPRF RD1+1, H1+3
>> PSJCM01 H2+15, H2+27
>> PSJCMO H2+15, H2+27
>> PSJORD H2+7, H2+19
>> PSJSYSP0 RDW+1, RDW+3
Q ENCHK+3*, ENEFA+1~, EFA+7*, EFA+10*, ENEFA2+4~*, ENEFA2+5
>> QQ SET1+2*
>> VALM("LINES" H1+4
X ENCHK+1*, ENCHK+2*, ENCHK+3, SET+1!, SET+3, SET1+1!, RD1+1*, RD1+2, RD1+3*, RD1+4
RD1+5*, RD1+6, RD1+7*, RD1+8, RD1+9*, RD1+10, RD1+11*, RD1+12, RD1+13, RD1+14
H1+3, RDW+2*, RDW+3, RDW+4, H2+1~*, H2+2, H2+3, EFA+1*, EFA+2, EFA+4
EFA+5, EFA+7, EFA+9*, EFA+10, EFA+11, FS+1!, FS+3
X1 ENCHK+3*, SET+1, SET+2, SET+3, ENEFA+1~, EFA+10*, FS+1, FS+2, FS+3, ENEFA2+4~*
ENEFA2+5
X2 SET+2*, SET+3*, SET1+1*, SET1+2, SET1+4, SET1+5, ENEFA+1~, FS+3*
>> XQORNOD(0 ENEFA2+2
Y ENEFA+1!*, EFA+1!*, EFA+7*, FDONE+1, FDONE+2*, FS+1, FS+2*, FS+3*!, ENEFA2+1!*, ENEFA2+2*
ENEFA2+4, ENEFA2+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All