Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls