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

Package: Inpatient Medications

Routine: PSJINVW


Information

PSJINVW ;BIR/CML3-INSTRUCTION HISTORY ;17 SEP 97 / 1:41 PM

Source Information

Source file <PSJINVW.m>

Entry Points

Name Comments DBIA/ICR reference
EN0(PSJINHIS,PSJCHTO) ;
EN2 ;
EN21 ;
DONE ;
PSJINHIS(PSJINHIS,PSJCHTO) ;
PSGSI ;
PSGOPI ;
ENA ;
AL1 ; Activity Logs
GETPRCOM ; Get provider comments
NPAGE ; Pause
DATUSR(DT,USR,TXT) ;
CPYPC(DFN,PSGORD,Q) ; Handle Special Instructions copied in from Provider Comments during finishing

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: @IOF
  • Line Location: PSJINHIS+2
Function Call: WRITE
  • Prompt: !!,"Date: ",$$ENDTC^PSGMI(+AND)
  • Line Location: PSGSI+6
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",2)),!?INDENT1,"SPECIAL INSTRUCTIONS changed"
  • Line Location: PSGSI+6
Function Call: WRITE
  • Prompt: !?INDENT1,"To:",!?INDENT2
  • Line Location: PSGSI+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($L(QQQ_" "_QQ)>72)
  • Line Location: PSGSI+9
Function Call: WRITE
  • Prompt: QQ," "
  • Line Location: PSGSI+9
Function Call: WRITE
  • Prompt: !?INDENT2,TMPTO(DFN,TMPTOLN)
  • Line Location: PSGSI+10
Function Call: WRITE
  • Prompt: !?INDENT1,"To:"
  • Line Location: PSGSI+12
Function Call: WRITE
  • Prompt: !!,"Date: ",$$ENDTC^PSGMI(+AND)
  • Line Location: PSGOPI+6
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",2)),!,"OTHER PRINT INFO changed"
  • Line Location: PSGOPI+6
Function Call: WRITE
  • Prompt: !?INDENT2,TMPTO(DFN,TMPTOLN)
  • Line Location: PSGOPI+8
Function Call: WRITE
  • Prompt: !?INDENT1,"To:"
  • Line Location: PSGOPI+10
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(55,DFN,5,+PSGORD,9,Q,Q2,TMPQ3,0)
  • Line Location: AL1+8
Function Call: WRITE
  • Prompt: !?INDENT1,$S(PSJCHTO=2:"From: ",PSJCHTO=1:"To:",1:"")
  • Line Location: AL1+11
Function Call: WRITE
  • Prompt: !?INDENT1,"From: "
  • Line Location: AL1+18
Function Call: WRITE
  • Prompt: !?INDENT2,FROM
  • Line Location: AL1+19
Function Call: WRITE
  • Prompt: !?INDENT2,TMPTO(DFN,TMPTOLN)
  • Line Location: AL1+20
Function Call: WRITE
  • Prompt: !?INDENT1,"To:"
  • Line Location: AL1+22
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(53.1,+PSGORD,"A",Q,QB,TMPQ2,0)
  • Line Location: AL1+23
Function Call: WRITE
  • Prompt: !?INDENT1,$S(PSJCHTO=2:"From: ",PSJCHTO=2:"To:",1:"")
  • Line Location: AL1+26
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(53.1,+PSGORD,"A",Q,QB,Q2,0)
  • Line Location: AL1+27
Function Call: WRITE
  • Prompt: !?INDENT1,"To: "
  • Condition for execution: TMPQ3=1
  • Line Location: AL1+32
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(55,DFN,"IV",+PSGORD,"A",Q,Q2,TMPQ3,0)
  • Line Location: AL1+32
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",3)),!,"OTHER PRINT INFO changed"
  • Line Location: AL1+37
Function Call: WRITE
  • Prompt: !?INDENT1,"From: """""
  • Line Location: AL1+38
Function Call: WRITE
  • Prompt: !?INDENT2,TMPTO(DFN,TMPTOLN)
  • Line Location: AL1+39
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(55,DFN,"IV",+PSGORD,"A",Q,Q2,Q3,0)
  • Line Location: AL1+41
Function Call: WRITE
  • Prompt: !,"Date: ",$$ENDTC^PSGMI(+AND)
  • Line Location: AL1+44
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",2)),!,"OTHER PRINT INFO changed"
  • Line Location: AL1+44
Function Call: WRITE
  • Prompt: !?INDENT1,"From: ",!?INDENT2,FROM
  • Line Location: AL1+45
Function Call: WRITE
  • Prompt: !?INDENT1,"To: "
  • Line Location: AL1+47
Function Call: WRITE
  • Prompt: !
  • Line Location: AL1+47
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(53.1,+PSGORD,"A",Q,QB,TMPQ2,0)
  • Line Location: AL1+48
Function Call: WRITE
  • Prompt: !,"Date: ",$$ENDTC^PSGMI(+AND)
  • Line Location: AL1+49
Function Call: WRITE
  • Prompt: ?28,"User: ",$$ENNPN^PSGMI($P(AND,"^",2)),!,"OTHER PRINT INFO changed"
  • Condition for execution: $S(UD'?4N:1,1:$E(UD,1,2)'=10)
  • Line Location: AL1+49
Function Call: WRITE
  • Prompt: !?INDENT1,$S(QB=1:"From: ",QB=2:"To: ",1:"")
  • Line Location: AL1+50
Function Call: WRITE
  • Prompt: !?INDENT2,^PS(53.1,+PSGORD,"A",Q,QB,Q2,0)
  • Line Location: AL1+51
Function Call: WRITE
  • Prompt: !
  • Line Location: NPAGE+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: NPAGE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NPAGE+5
Function Call: WRITE
  • Prompt: !?25,"Instructions History"
  • Line Location: NPAGE+6
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: NPAGE+7
Function Call: WRITE
  • Prompt: !!,"Date: ",DAT,?28,"User: ",USER,!,TXT
  • Line Location: DATUSR+4
Function Call: WRITE
  • Prompt: !?INDENT1,$S(PSJCHTO=2:"From: ",PSJCHTO=1:"To:",1:"")
  • Line Location: CPYPC+12
Function Call: WRITE
  • Prompt: !?INDENT2,$G(^(TOSI,0))
  • Line Location: CPYPC+17
Info |  Source |  Entry Points |  Interaction Calls