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

Package: Order Entry Results Reporting

Routine: ORAMX1


Information

ORAMX1 ;ISL/JER - ADDITIONAL ANTICOAGULATION CALLS ;12/05/14 09:42

Source Information

Source file <ORAMX1.m>

Entry Points

Name Comments DBIA/ICR reference
RPT(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; Generate report for CPRS
WRAP(TEXT,LENGTH) ; Breaks text string into substrings of length LENGTH
GETVSIT(ORDXS,ORDFN,ORVDT,ORLOC) ; Find the Visit for a given Pt, Location, and Visit Date(/Time)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,0),"^")," ",$E($P(^DPT(DFN,0),"^",9),1,3),"-",$E($P(^DPT(DFN,0),"^",9),4,5),"-",$E($P(^DPT(DFN,0),"^",9),6,9)
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: !,?10,"******* COMPLEX PATIENT *******"
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: !!,"Primary Indication: ",$P(PIND,"|")
  • Line Location: RPT+48
Function Call: WRITE
  • Prompt: !?22,$P(PIND,"|",ORI)
  • Line Location: RPT+49
Function Call: WRITE
  • Prompt: !," Add'l Indications: ",$P(SIND,"|")
  • Line Location: RPT+53
Function Call: WRITE
  • Prompt: !?22,$P(SIND,"|",ORJ)
  • Line Location: RPT+54
Function Call: WRITE
  • Prompt: !,$S($D(ORAMSIND):" ",1:" Add'l Indication: "),$P(AIND,"|")
  • Line Location: RPT+56
Function Call: WRITE
  • Prompt: !?22,$P(AIND,"|",ORI)
  • Line Location: RPT+57
Function Call: WRITE
  • Prompt: !!,"Primary Indication: ",$P(AIND,"|")
  • Line Location: RPT+61
Function Call: WRITE
  • Prompt: !?22,$P(AIND,"|",ORI)
  • Line Location: RPT+62
Function Call: WRITE
  • Prompt: !!,"Primary Indication: ",$P(PIND,"|")
  • Line Location: RPT+66
Function Call: WRITE
  • Prompt: !?22,$P(PIND,"|",ORI)
  • Line Location: RPT+67
Function Call: WRITE
  • Prompt: !?$S(ORDXS>2:1,1:2),"Add'l Indication",$S(ORDXS>2:"s",1:""),": ",$P(AIND,"|")
  • Line Location: RPT+70
Function Call: WRITE
  • Prompt: !?22,$P(AIND,"|",ORI)
  • Line Location: RPT+71
Function Call: WRITE
  • Prompt: !?$S(ORI=1:20,1:22),$P(AIND,"|",ORI)
  • Line Location: RPT+74
Function Call: WRITE
  • Prompt: !!," Goal INR: ",$P(^ORAM(103,DFN,0),"^",2)
  • Line Location: RPT+75
Function Call: WRITE
  • Prompt: !?10,"Last ",$S($$UP^XLFSTR($P(ORAMHCT,U,3))["HGB":"Hgb",$$UP^XLFSTR($P(ORAMHCT,U,3))["HEMOGLOBIN":"Hgb",1:"HCT"),": "
  • Line Location: RPT+78
Function Call: WRITE
  • Prompt: $S($P(ORAMHCT,U)]"":$P(ORAMHCT,U),1:"No result")," on ",$S($P(ORAMHCT,U,2)]"":$P(ORAMHCT,U,2),1:"file")
  • Line Location: RPT+79
Function Call: WRITE
  • Prompt: !!?10,ORAMHCT
  • Line Location: RPT+80
Function Call: WRITE
  • Prompt: !!,"Patient is Eligible for LMWH Bridging"
  • Line Location: RPT+82
Function Call: WRITE
  • Prompt: ":"
  • Line Location: RPT+85
Function Call: WRITE
  • Prompt: !?2,$G(^ORAM(103,DFN,7,ORI,0))
  • Line Location: RPT+86
Function Call: WRITE
  • Prompt: "."
  • Line Location: RPT+87
Function Call: WRITE
  • Prompt: !!,"Special Instructions:"
  • Line Location: RPT+89
Function Call: WRITE
  • Prompt: !?2,^ORAM(103,DFN,1,ORAMJ,0)
  • Line Location: RPT+90
Function Call: WRITE
  • Prompt: !?2,"Pt has given permission to leave anticoag msg on msg machine."
  • Line Location: RPT+91
Function Call: WRITE
  • Prompt: !?2,"OK to leave anticoagulation message with:"
  • Line Location: RPT+93
Function Call: WRITE
  • Prompt: !?4,^ORAM(103,DFN,4,ORAMJ,0)
  • Line Location: RPT+94
Function Call: WRITE
  • Prompt: !!,"Secondary Indication(s)/Risk Factors:"
  • Line Location: RPT+96
Function Call: WRITE
  • Prompt: !?2,^ORAM(103,DFN,2,ORAMJ,0)
  • Line Location: RPT+97
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+98
Function Call: WRITE
  • Prompt: !,"Start Date: ",$P(^ORAM(103,DFN,0),"^",5)
  • Line Location: RPT+99
Function Call: WRITE
  • Prompt: ?35,"Duration: ",$P(^ORAM(103,DFN,0),"^",7)
  • Line Location: RPT+100
Function Call: WRITE
  • Prompt: !,"==========================================================================="
  • Line Location: RPT+101
Function Call: WRITE
  • Prompt: !,"DATE",?10,"INR",?18,"Notified",?30,"TWD",?36,"Comments:"
  • Line Location: RPT+102
Function Call: WRITE
  • Prompt: !,"---------------------------------------------------------------------------"
  • Line Location: RPT+103
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($E($P(^ORAM(103,DFN,3,ORAMFSD,0),"^",9),1,7),2)
  • Line Location: RPT+109
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(ORAMDD1,2)
  • Line Location: RPT+110
Function Call: WRITE
  • Prompt: ?11,$P(^ORAM(103,DFN,3,ORAMFSD,0),"^",3)
  • Line Location: RPT+112
Function Call: WRITE
  • Prompt: ?18,$P(ORAMPNOT,"|")
  • Line Location: RPT+113
Function Call: WRITE
  • Prompt: ?30,$P(^ORAM(103,DFN,3,ORAMFSD,0),"^",6)
  • Line Location: RPT+114
Function Call: WRITE
  • Prompt: ?10,$$FMTE^XLFDT($P(^ORAM(103,DFN,3,ORAMFSD,0),"^"),2)
  • Line Location: RPT+119
Function Call: WRITE
  • Prompt: ?38,^ORAM(103,DFN,3,ORAMFSD,1,ORAMCLN,0),!
  • Line Location: RPT+121
Function Call: WRITE
  • Prompt: ?18,$P(ORAMPNOT,"|",ORAMI),!
  • Line Location: RPT+124
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+125
Function Call: WRITE
  • Prompt: ?18,$P(ORAMPNOT,"|",ORAMI),!
  • Line Location: RPT+127
Function Call: WRITE
  • Prompt: !,"Patient Instructions (from Letter):"
  • Line Location: RPT+131
Function Call: WRITE
  • Prompt: !?2,$P(ORPILN,"|",ORJ)
  • Line Location: RPT+135
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+136
Function Call: WRITE
  • Prompt: !,"Current Dosing (using ",ORAMPS," mg tab):",!
  • Line Location: RPT+142
Function Call: WRITE
  • Prompt: ?6,$J("Sun",6),?12,$J("Mon",6),?18,$J("Tue",6),?24,$J("Wed",6),?30,$J("Thu",6),?36,$J("Fri",6),?42,$J("Sat",6),?48,$J("Tot",6),!
  • Line Location: RPT+143
Function Call: WRITE
  • Prompt: "Tab"
  • Line Location: RPT+144
Function Call: WRITE
  • Prompt: ?(6*ORI),$J(($P(ORAMDOSE,"|",ORI)/ORAMPS),6)
  • Line Location: RPT+144
Function Call: WRITE
  • Prompt: ?48,$J(ORAMTP,6),!
  • Line Location: RPT+145
Function Call: WRITE
  • Prompt: "mgs"
  • Line Location: RPT+146
Function Call: WRITE
  • Prompt: ?(6*ORI),$J($P(ORAMDOSE,"|",ORI),6)
  • Line Location: RPT+146
Function Call: WRITE
  • Prompt: ?48,$J(ORAMTM,6),!
  • Line Location: RPT+147
Function Call: WRITE
  • Prompt: ?38,ORAMCTXT,"noted: (",^ORAM(103,DFN,3,ORAMFSD,2,ORAMRSF,0),")",!
  • Line Location: RPT+154
Function Call: WRITE
  • Prompt: ?$S(ORI=1:38,1:40),$P(ORAMCMPL,"|",ORI),!
  • Line Location: RPT+158
Function Call: WRITE
  • Prompt: ?38,"-------------------------------------",!
  • Line Location: RPT+159
Info |  Source |  Entry Points |  Interaction Calls