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

Package: IFCAP

Routine: PRCPRPC2


Information

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

Source Information

Source file <PRCPRPC2.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print report
H

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
Info |  Source |  Entry Points |  Interaction Calls