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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSIVARH

Package: Inpatient Medications

Routine: PSIVARH


Information

PSIVARH ;AAC/JLS - DISPLAY RECENTLY DC'D IV ORDERS ; 17 Nov 2015 1:53 PM

Source Information

Source file <PSIVARH.m>

Entry Points

Name Comments DBIA/ICR reference
EN101(PSIVMSG) ;Entry from protocol PSIVARH PHARMACY
STORE1(ORIFN,PSJORD,ORVP) ;Get common info
IVROFF(ORVP,PSJORD) ;
OI(Q)
STOREIV ;Store IV info
START
ORDLOOP ; Loop through orders for each ward or each ward in a group
GRSETUP(WG) ; setup vars for group and return -1 if no data
WDSETUP(WD) ;
GLOOP
WLOOP(WRDIEN) ;
DISP(PSIVLN)
IVROOM(PHPTIEN,ORDERNUM) ;
DISPLINE(WARD,PSIVRB,PSIVDRN,PSIPNAME,PSIVPID,PSIDT,PSIVSIG,PSITM,PSIVSS) ;
SAVELINE(WRDIEN,WARD,PSIVRB,PSIVDRN,PSIPNAME,PSIVPID,PSIDT,PSIVSIG,PSITM,THISHR,PSIVDA,PSIVSTS) ;
PRINT ;
PRINT1 ;
PFLAGDEL() ; ask user whether to delete after printing.
DELETE(NODE) ;
HEADER(PSIVLN) ;Header
ASK(HOLD) ;ask user 2 continue function
PAUSE(PSIVLN)
TURNOFF(VALUE) ;entry point called from IV room Input transform field 21
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?1,$E(WARD,1,9)
  • Line Location: DISPLINE+3
Function Call: WRITE
  • Prompt: ?12,$E(PSIVRB,1,8)
  • Line Location: DISPLINE+4
Function Call: WRITE
  • Prompt: ?21,$E($P(^PS(50.7,PSIVDRN,0),U),1,18)
  • Line Location: DISPLINE+5
Function Call: WRITE
  • Prompt: ?42,$E(PSIPNAME,1,15)
  • Line Location: DISPLINE+6
Function Call: WRITE
  • Prompt: ?59,PSIVPID
  • Line Location: DISPLINE+7
Function Call: WRITE
  • Prompt: ?64,PSIDT
  • Line Location: DISPLINE+8
Function Call: WRITE
  • Prompt: !?3,$G(PSIVSS),?22,$E(PSIVSIG,1,42),?65,"@",PSITM
  • Line Location: DISPLINE+10
Function Call: WRITE
  • Prompt: !!,"Only data that you have viewed will be printed."
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Your task number is ",ZTSK," and it has been queued."
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,"Your task was NOT queued."
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,"END OF REPORT.",!
  • Line Location: PRINT1+33
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+11
Function Call: WRITE
  • Prompt: !," Records which you have viewed or printed from"
  • Line Location: DELETE+13
Function Call: WRITE
  • Prompt: !," the temporary file--IV MEDICATION ORDERS DC'D (#52.75)"
  • Line Location: DELETE+14
Function Call: WRITE
  • Prompt: !," have been removed."
  • Line Location: DELETE+15
Function Call: WRITE
  • Prompt: @IOF,!,?(IOM-$L(RPTITLE1))\2,RPTITLE1
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,?(IOM-$L(RPTITLE2))\2,RPTITLE2
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !?1,"WARD - ROOM/BED",?22,"DRUG",?42,"PATIENT",?59,"PID",?65,"DT/TM",!,PSIVI,!
  • Line Location: HEADER+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
^PS(51.2 - [#51.2] GET1^DIQ
^PS(52.75 - [#52.75] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call