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

Package: IFCAP

Routine: PRCPRPC2


Information

PRCPRPC2 ;WISC/RFJ/DWA-patient distribution costs (print report) ;11 Mar 94

Source Information

Source file <PRCPRPC2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
IFCAP 3 PRINTOTL^PRCPRPC3  ($$SCRPAUSE,$$USER,P)^PRCPUREP  $$DESCR^PRCPUX1  
VA FileMan 2 DD^%DT  NOW^%DTC  
Kernel 1 $$S^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IFCAP 2 PRCPRPC3  PRCPRPCR  

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print report
H

External References

Name Field # of Occurrence
DD^%DT PRINT+1, PRINT+8, PRINT+32
NOW^%DTC PRINT+1
$$S^%ZTLOAD PRINT+13
PRINTOTL^PRCPRPC3 PRINT+44
$$SCRPAUSE^PRCPUREP PRINT+1
$$USER^PRCPUREP PRINT+20
P^PRCPUREP PRINT+14, PRINT+36, PRINT+39
$$DESCR^PRCPUX1 PRINT+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"*** R E P O R T V A R I A B L E S S E L E C T E D ***",!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"SURGICAL SPECIALTY RANGE FROM : ",$S(PRCPSURS="":"FIRST",1:PRCPSURS),?60,"TO: ",$S(PRCPSURE="z":"LAST",1:PRCPSURE)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"PATIENT NAME RANGE FROM : ",$S(PRCPPATS="":"FIRST",1:PRCPPATS),?60,"TO: ",$S(PRCPPATE="z":"LAST",1:PRCPPATE)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"OPERATION/PROCEDURE CODE RANGE FROM: ",$S(PRCPOPCS="":"FIRST",1:PRCPOPCS),?60,"TO: ",$S(PRCPOPCE="z":"LAST",1:PRCPOPCE)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"DISTRIBUTION DATES FROM : ",Y
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?60,"TO: ",Y,!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"PRINT SUMMARY ONLY : ",$S(PRCPSUMM=1:"YES",1:"NO")
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"PRINT ITEMS ON REPORT: ",$S($G(PRCPFITM)=1:"YES",1:"NO")
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !!?5,"FROM Inventory Point: ",DISTRNM,?40,"TO Surgical Specialty: ",SURGSPEC
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,PATNAME,?12,INOUTPAT,?17,OPCODE,?26,DATE,?35,SURGEON,?52,ORROOM,?65,$J(TOTCOST,15,2)
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !?10,"IM# ",ITEMDA,?20,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,25),?50,"QTY: ",+$P(DATA,"^",2),?65,$J(+$P(DATA,"^",3),15,2)
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"PATIENT DISTRIBUTION COST REPORT FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"*** R E P O R T T O T A L S ***",?46,$J("COUNT",10),$J("TOTAL COST",12),$J("AVERAGE",12),!,%
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"NAME-SSN",?11,"IO",?17,"OPCODE",?26,"DATE",?35,"SURGEON",?52,"OR ROOM",?70,"TOTAL COST",!,%
  • Line Location: H+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(446.1 - [#446.1] PRINT+37
^SC - [#44] PRINT+33
^SRS - [#131.7] PRINT+33
^TMP($J PRINT+12, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27
, PRINT+28, PRINT+29

Label References

Name Line Occurrences
H PRINT+1, PRINT+14, PRINT+36, PRINT+39

Naked Globals

Name Field # of Occurrence
^( PRINT+19, PRINT+23*, PRINT+24*, PRINT+25*, PRINT+26*, PRINT+27*, PRINT+28*, PRINT+37
^(6 PRINT+29*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+1, PRINT+23*, PRINT+24*, PRINT+25*, PRINT+26*, PRINT+27*, PRINT+28*, PRINT+29*, H*, H+1
, H+2*, H+3, H+4
>> DA PRINT+19*, PRINT+32, PRINT+37
>> DATA PRINT+19*, PRINT+20, PRINT+21, PRINT+33, PRINT+37*, PRINT+38
>> DATE PRINT+32*, PRINT+35
>> DATEEND PRINT+8
>> DATESTRT PRINT+8
>> DISTRNM PRINT+12*, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+23
>> INOUTPAT PRINT+16*, PRINT+17, PRINT+18, PRINT+19, PRINT+25, PRINT+26, PRINT+35
IO PRINT+1
IOF H
IOSL PRINT+14, PRINT+36, PRINT+39
>> ITEMDA PRINT+37*, PRINT+38
>> NOW PRINT+1*, H
>> OPCODE PRINT+18*, PRINT+19, PRINT+27, PRINT+35
ORROOM PRINT+2*, PRINT+33*, PRINT+34*, PRINT+35*, PRINT+41!
>> PAGE PRINT+1*, H*
>> PATNAME PRINT+17*, PRINT+18, PRINT+19, PRINT+35
>> PRCP("I" PRINT+38
>> PRCP("IN" H+1
>> PRCPFITM PRINT+10, PRINT+37
>> PRCPFLAG PRINT+12, PRINT+13*, PRINT+14, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+36, PRINT+37, PRINT+39
, PRINT+40
>> PRCPFTOT H+3
>> PRCPOPCE PRINT+7
>> PRCPOPCS PRINT+7
>> PRCPPATE PRINT+6
>> PRCPPATS PRINT+6
>> PRCPSUMM PRINT+9, PRINT+15, PRINT+30
>> PRCPSURE PRINT+5
>> PRCPSURS PRINT+5
>> SCREEN PRINT+1*, PRINT+14, PRINT+36, PRINT+39, H
>> SURGEON PRINT+20*, PRINT+28, PRINT+35
>> SURGSPEC PRINT+12*, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+24, PRINT+25
>> TOTCOST PRINT+21*, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+35
>> Y PRINT+1*, PRINT+8*, PRINT+32*
>> ZTQUEUED PRINT+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All