Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ORPRS04

Package: Order Entry Results Reporting

Routine: ORPRS04


Information

ORPRS04 ; slc/dcm - Print Order summaries (SHRIVELED) ;12-Apr-2011 13:39;DU

Source Information

Source file <ORPRS04.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Order Entry Results Reporting 6 TERM^ORPRS01  ($$FLAG,ONE)^ORPRS03  (CTOP,PBOT,PTOP)^ORPRS05  TEXT^ORQ12  $$INV^ORU  END^ORUDPA  
Kernel 1 $$S^%ZTLOAD  
Toolkit 1 $$GET^XPAR  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Order Entry Results Reporting 2 ORPRS03  ORPRS11  

Entry Points

Name Comments DBIA/ICR reference
MTIM(X) ;Format time from Fileman date in X
EN ;Print orders
KIDS(ORIFN,LENGTH) ;Print child orders
PTHDR ;
PRT ;Print order line
PGCHK(CNT) ;
STS ;
SET(FILE,FIELD,RESULT) ;Interpret set of codes

External References

Name Field # of Occurrence
$$S^%ZTLOAD EN+1
^DIR EN+19, PGCHK+5, PGCHK+8, PGCHK+15
TERM^ORPRS01 STS+2
$$FLAG^ORPRS03 STS+3
ONE^ORPRS03 KIDS+3
CTOP^ORPRS05 EN+13, PRT+4, PGCHK+17
PBOT^ORPRS05 EN+21, PGCHK+4, PGCHK+21
PTOP^ORPRS05 EN+14, PRT+3, PGCHK+24
TEXT^ORQ12 PRT+13
$$INV^ORU STS+9, STS+40
END^ORUDPA EN+9
$$GET^XPAR EN+4, STS+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TASKED Report stopped by WHILE RUNNING."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!?3,"No orders.",!,ORLINE
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter '^' to stop listing for current patient"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!!!!?(IOM-44)\2,"***** E N D O F R E P O R T ****",!
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!
  • Line Location: STS+7
Function Call: WRITE
  • Prompt: ?8,ORSTS,?12,$S(ORDAD:"+",1:" ")
  • Line Location: STS+11
Function Call: WRITE
  • Prompt: ?54,ORREQ
  • Line Location: STS+13
Function Call: WRITE
  • Prompt: ?65,$E(ORSTRT,4,5)_"/"_$E(ORSTRT,6,7)_"/"_$E(ORSTRT,2,3)
  • Condition for execution: $L(ORSTRT)
  • Line Location: STS+13
Function Call: WRITE
  • Prompt: !?3,$$MTIM(ORODT),?13
  • Line Location: STS+15
Function Call: WRITE
  • Prompt: ?54,$E(ORREQ("TIT"),1,10),?68,$$MTIM(ORSTRT),?75,$$MTIM(ORSTOP)
  • Line Location: STS+18
Function Call: WRITE
  • Prompt: !?13,ORTX(X)
  • Line Location: STS+19
Function Call: WRITE
  • Prompt: !
  • Line Location: STS+21
Function Call: WRITE
  • Prompt: ?1,$P($G(^VA(200,ORUSER,0)),"^",2)
  • Line Location: STS+22
Function Call: WRITE
  • Prompt: !?13,^(J,0)
  • Line Location: STS+34
Function Call: WRITE
  • Prompt: !?66,"*UNRELEASED*"
  • Line Location: STS+40
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGCHK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PGCHK+5
Function Call: WRITE
  • Prompt: !?(IOM-44)\2,"***** E N D O F R E P O R T ****",!
  • Line Location: PGCHK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PGCHK+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PGCHK+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGCHK+23
Function Call: WRITE
  • Prompt: !,ORPNM_" "_$G(ORSSN)_" "_$S($G(ORCONT):"(cont.)",1:"")_" "
  • Line Location: PTHDR+1
Function Call: WRITE
  • Prompt: ?(80-$L(X))\2,X
  • Line Location: PTHDR+3
Routine Call
  • DIR
  • Line Location:
    • EN+19
    • PGCHK+5
    • PGCHK+8
    • PGCHK+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( SET+1
^DIC(3.1 - [#3.1] PRT+12
^OR(100 - [#100] PRT+6, PRT+11, STS+23, STS+34, KIDS+3
^ORD(100.01 - [#100.01] STS+1
^ORD(100.02 - [#100.02] STS+27
^ORD(101.41 - [#101.41] PRT+10
^TMP("ORR" EN+4, EN+16, EN+26, PRT+2, STS+41
^VA(200 - [#200] PRT+12, STS+22, STS+28, STS+29

Label References

Name Line Occurrences
$$MTIM STS+15, STS+18
$$SET STS+26
KIDS STS+38
PGCHK EN+29, STS+5, STS+19, STS+42, KIDS+3
PRT EN+26
PTHDR EN+15, PRT+3, PGCHK+19, PGCHK+25

Naked Globals

Name Field # of Occurrence
^( PRT+2, STS+34
^(0 PRT+6, PRT+11, PRT+12, STS+23
^(2 PRT+6
^(3 PRT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT PGCHK~, PGCHK+2*, PGCHK+11, PGCHK+20
DIR EN+19!, PGCHK+1~
DIR("A" EN+19*, PGCHK+5*, PGCHK+8*, PGCHK+14*
DIR(0 EN+19*, PGCHK+5*, PGCHK+8*, PGCHK+14*
>> DIROUT EN+1*
DIRUT EN+2~
>> DTOUT EN+27
DUOUT EN+2~, EN+26, EN+27, PGCHK+5, PGCHK+8, PGCHK+16
FIELD SET~, SET+1
FILE SET~, SET+1
I STS+19*, STS+36~, STS+37*, PGCHK+1~, KIDS+3*
IOF EN+11, PGCHK+4, PGCHK+23
IOM EN+8, EN+23, PGCHK+7
IOSL EN+8, EN+11, STS+19, PGCHK+4, PGCHK+11, PGCHK+20, PGCHK+21
IOST EN+11, EN+13, EN+18, PRT+4, STS+2, PGCHK+4, PGCHK+5, PGCHK+8, PGCHK+10
>> J STS+34*
LENGTH KIDS~, KIDS+3
NATURE STS+24~, STS+25*, STS+27*, STS+32
NURSE STS+24~, STS+25*, STS+28*, STS+30
NVA PRT+1~, PRT+10*, PRT+16
OACTION PRT+1~, PRT+2*, PRT+11, PRT+13, STS+23
>> ORAGE EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21
ORASTS PRT+1~, PRT+11*, STS+1
>> ORBOT EN+8*, EN+21
ORCHLD KIDS+1~, KIDS+2*, KIDS+3*
ORCONT EN+2~, EN+24!, EN+25*, STS+41*, PGCHK+6!, PGCHK+16!, PGCHK+19, PGCHK+25, PTHDR+1
ORDAD EN+2~, EN+8*, PRT+6*, STS+11, STS+35
ORDIA PRT+1~, PRT+9*
ORDIAI PRT+1~, PRT+9*, PRT+16
>> ORDOB EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21
OREL PRT+1~, PRT+7*, PRT+11*, STS+9, STS+40
OREND EN+1*, EN+2~, EN+8*, EN+26, EN+27, STS+6, STS+19, STS+20, STS+35, PGCHK+5*
, PGCHK+8*, PGCHK+16*, KIDS+3
ORFLAG PRT+1~, STS+3*
ORIFN PRT+1~, PRT+2*, PRT+6, PRT+11, PRT+13, STS+3, STS+23, STS+34, STS+38, KIDS~
, KIDS+2, KIDS+3*
>> ORL(0 EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21
>> ORL(1 EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21, PTHDR+2
ORLINE EN+2~, EN+8*, EN+16, PGCHK+3
>> ORLIST EN+4, EN+16, EN+26, PRT+2, STS+41
ORLST EN+2~, EN+25*, EN+26*, PRT+2, STS+41
ORLSTO EN+2~, EN+25*, EN+28*, PGCHK+6
ORMD PRT+1~, PRT+7*, PRT+11*
ORNAT PRT+1~, PRT+11*
ORODT PRT+1~, PRT+7*, PRT+11*, STS+10, STS+15
OROIFN KIDS+1~, KIDS+2*, KIDS+3
>> ORPD EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21
>> ORPNM EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21, PTHDR+1
>> ORREQ PRT+7*, PRT+11*, PRT+12*, PRT+14*, PRT+16*, PRT+17, PRT+18*, STS+13
>> ORREQ("F" PRT+17*, PRT+18, PRT+19*, PRT+20*, PRT+21, PRT+22*
>> ORREQ("O" EN+10*, PRT+3*, PRT+5*, PRT+17*, PRT+18
>> ORREQ("TIT" PRT+5*, PRT+12*, PRT+16*, PRT+17*, PRT+20*, PRT+21*, STS+18
ORSEND EN+13, EN+22, EN+24!, PRT+4, PGCHK+6!, PGCHK+16!, PGCHK+17
ORSEQ STS+36~, STS+37*
>> ORSHORT EN+13, EN+14, EN+21, PRT+3, PRT+4, PGCHK+3, PGCHK+4, PGCHK+17, PGCHK+21, PGCHK+24
ORSPG EN+3!, EN+12*, EN+13, EN+14, EN+24!, PRT+3, PRT+4, PRT+5, PGCHK+4, PGCHK+12*
, PGCHK+17, PGCHK+18*, PGCHK+21, PGCHK+22*, PGCHK+24
ORSPG("EOP" EN+13, EN+17*, PRT+3*, PRT+4*, PGCHK+17
ORSPG("LAST" EN+27, STS+41*, PGCHK+3, PGCHK+9
ORSPG(0 PRT+5*
>> ORSSN EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21, PTHDR+1
>> ORSSTOP EN+14, PRT+3, PGCHK+24
>> ORSSTRT EN+14, PRT+3, PGCHK+24
ORSTOP PRT+1~, PRT+7*, STS+14, STS+18
ORSTRT PRT+1~, PRT+7*, STS+13, STS+18
ORSTS PRT+1~, PRT+7*, STS+1*, STS+11
>> ORTERM(5 STS+2, STS+3
>> ORTERM(7 STS+8, STS+40
>> ORTIT EN+13, EN+14, PRT+3, PRT+4, STS+37, STS+39*, PGCHK+17, PGCHK+24
>> ORTIT(0 STS+37*, STS+39
ORTX PRT+1~, PRT+13
ORTX( STS+12, STS+17, STS+19
ORTX("" STS+4
ORTX(0 STS+12, STS+16
ORUSER PRT+1~, PRT+7*, PRT+11*, STS+22
>> ORVP EN+8
>> ORWARD EN+13, PRT+4, PGCHK+17, PTHDR+2
ORXPND PRT+1~, STS+4*, STS+5, STS+19
RESULT SET~, SET+1
REVIEW STS+24~, STS+25*, STS+29*, STS+31
SHELBY EN+2~, EN+4*, EN+7
SIGSTS STS+24~, STS+25*, STS+26*, STS+33
U PRT+12, STS+40
X PRT+6*, PRT+7, PRT+9, PRT+11*, PRT+12*, PRT+14*, STS+8*, STS+9*, STS+16*, STS+17
, STS+19*, STS+23*, STS+25, STS+40*, PGCHK+1~, PTHDR+2*, PTHDR+3, MTIM~, MTIM+1, MTIM+2*
, MTIM+3, MTIM+4*, MTIM+5, SET+1*, SET+2
>> X3 PRT+6*, PRT+7
Y EN+8*, EN+19!*, EN+20
YENKO EN+2~, EN+4*, EN+7
>> ZTSTOP EN+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All