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

Package: Inpatient Medications

Routine: PSGVW


Information

PSGVW ;BIR/CML3 - EXPANDED VIEW OF AN ORDER ;May 27, 2020@08:34:44

Source Information

Source file <PSGVW.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
EN2 ;
EN21 ;
L
WRT ;
ACTFLG
DONE ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: CONT
  • Timeout: DTIME
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue or '^' to exit: "
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: "Patient: ",PN
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: ?47,"Status: "
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: "DISCONTINUED",$S(ST["E":" (EDIT)",ST["R":" (RENEWAL)",1:"")
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: $S(ST="E":"EXPIRED",$P($G(@(F_"0)")),U,27)="R":"RENEWED",ST="":"NOT FOUND",ST="RE":"REINSTATED",1:$P(ST_"^ACTIVE^HOLD^INCOMPLETE^NON-VERIFIED^PENDING^UNRELEASED","^",$F("AHINPU",ST)))
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !,"Orderable Item: ",DRG
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !?2,"Instructions: ",INS
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !,"Dosage Ordered: ",DO
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !?6,"Duration: ",PSJDUR
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?48,"Start: ",STD
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !?5,"Med Route: ",$S(MR:$S($D(^PS(51.2,+MR,0)):$P(^(0),"^")_$S($P(^(0),"^",3)]"":" ("_$P(^(0),"^",3)_")",1:""),1:MR),1:"NOT FOUND")
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: ?46,"Renewed: ",RNDT
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: ?46,"Renewed: ",RNDT
  • Line Location: WRT+14
Function Call: WRITE
  • Prompt: !,$$BCMALG^PSJUTL2(PSGP,PSGORD)
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: ?49,"Stop: ",FD
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: !?1,"Schedule Type: ",$$ENSTN^PSGMI(SCT)
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: !?6,"Schedule: ",$S(SCH="":"NOT FOUND",$L(SCH)>27:$E(SCH,1,24)_"...",1:SCH)
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: !,"Special Instructions: (see below) "
  • Line Location: WRT+23
Function Call: WRITE
  • Prompt: !?2,QQ," "
  • Line Location: WRT+24
Function Call: WRITE
  • Prompt: !,"Special Instructions: (see below)"
  • Line Location: WRT+26
Function Call: WRITE
  • Prompt: !!,?4,"Indication: "_$P($G(@(F_"18)")),U)
  • Line Location: WRT+28
Function Call: WRITE
  • Prompt: !?48,"Units",?56,"Units",?64,"Inactive",!," Dispense Drugs",?43,"U/D",?48,"Disp'd",?56,"Ret'd",?64,"Date",!,FL,$E(FL,1,10)
  • Line Location: WRT+29
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: WRT+35
Function Call: WRITE
  • Prompt: !,^(Q,0)
  • Line Location: WRT+36
Function Call: WRITE
  • Prompt: !
  • Line Location: ACTFLG+0
Function Call: WRITE
  • Prompt: " (",$P(AT,"^",10),")"
  • Line Location: ACTFLG+3
Function Call: WRITE
  • Prompt: !,"Self Med: "
  • Line Location: ACTFLG+4
Function Call: WRITE
  • Prompt: "SELF MED"
  • Line Location: ACTFLG+4
Function Call: WRITE
  • Prompt: " (HOSPITAL SUPPLIED)"
  • Condition for execution: HSM
  • Line Location: ACTFLG+4
Function Call: WRITE
  • Prompt: "NO"
  • Line Location: ACTFLG+5
Function Call: WRITE
  • Prompt: !!,"Entry By: ",$$ENNPN^PSGMI(EB),?52,"Entry Date: ",LID
  • Line Location: ACTFLG+6
Function Call: WRITE
  • Prompt: !,"Renewed By: "_$$ENNPN^PSGMI($P(PSGLRN,"^",2))
  • Line Location: ACTFLG+7
Function Call: WRITE
  • Prompt: !?3,"(PROVIDER IS CURRENTLY LISTED AS INACTIVE.)"
  • Line Location: ACTFLG+8
Info |  Source |  Entry Points |  Interaction Calls