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

Package: IFCAP

Routine: PRCPRDC0


Information

PRCPRDC0 ;WISC/RFJ-dietetics cost report (cont) ;27 May 93

Source Information

Source file <PRCPRDC0.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
IFCAP 2 ($$SCRPAUSE,END,P)^PRCPUREP  ($$DESCR,$$FOOD,$$INVNAME,$$NSN)^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: 1

Package Total Caller Graph
IFCAP 1 PRCPRDCR  

Entry Points

Name Comments DBIA/ICR reference
START ; called from prcprdie to print report
H

External References

Name Field # of Occurrence
DD^%DT START+11, START+12
NOW^%DTC START+12
$$S^%ZTLOAD START+17
$$SCRPAUSE^PRCPUREP START+12
END^PRCPUREP START+41
P^PRCPUREP START+18, START+29, START+33, START+38
$$DESCR^PRCPUX1 START+26
$$FOOD^PRCPUX1 START+6
$$INVNAME^PRCPUX1 START+14
$$NSN^PRCPUX1 START+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>"
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !!?5,"FOOD GROUP: ",$S(FOOD=" ":"X",1:FOOD)," (",$E(FOODDESC,1,50),")"
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !,$TR(NSN,"-"),?15,$E($$DESCR^PRCPUX1(INVPT,ITEMDA),1,15),?31,ITEMDA,?37,$J($P(DATA,"^"),8),$J($P(DATA,"^",2),8),$J($P(DATA,"^",3),10,2),$J(REF,7)
  • Line Location: START+26
Function Call: WRITE
  • Prompt: $J($E(DATE,4,5)_"-"_$E(DATE,6,7)_"-"_$E(DATE,2,3),10)
  • Line Location: START+27
Function Call: WRITE
  • Prompt: !,$J("SUBTOTAL REFERENCE NUMBER "_$S(REF=" ":"XXXXX",1:REF)_":",50),$J(TOTALREF,13,2)
  • Line Location: START+31
Function Call: WRITE
  • Prompt: !,$J("TOTAL FOOD GROUP "_$S(FOOD=" ":"X",1:FOOD)_" ("_$E(%,1,25)_"):",50),$J(TOTALFOO,13,2)
  • Line Location: START+36
Function Call: WRITE
  • Prompt: !,$J("TOTALS FOR INVENTORY POINT:",50),$J(TOTALINV,13,2)
  • Line Location: START+40
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"DIETETIC COST REPORT FOR: ",$E(PRCPIN,1,20),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?5,"ITEMS RECEIVED IN INVENTORY POINT BETWEEN DATES: ",DATESDT," to ",DATEEDT
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"NSN",?15,"DESCRIPTION",?31,"IM#",?37,$J("UNITS",8),$J("QTY",8),$J("TOTAL $",10),$J("REF#",7),$J("REC DT",10),!,%
  • Line Location: H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(441 START+20, START+35
^PRCP(445.2 - [#445.2] START+3, START+4, START+5
^TMP($J START+2!, START+3, START+9*, START+13, START+16, START+22, START+24, START+25

Label References

Name Line Occurrences
H START+14, START+18, START+29, START+33, START+38

Naked Globals

Name Field # of Occurrence
^( START+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+12, START+35*, START+36, H*, H+1, H+3*
DA START+1~, START+4*, START+5, START+9, START+25*
DATA START+1~, START+5*, START+6, START+7, START+8*, START+9, START+25*, START+26, START+28
DATE START+1~, START+3*, START+4, START+9, START+25*, START+27
DATEEDT START+1~, START+11*, H+2
>> DATEEND START+3, START+11
DATESDT START+1~, START+11*, H+2
>> DATESTRT START+3, START+11
FOOD START+1~, START+6*, START+9, START+16*, START+20, START+21, START+22, START+24, START+25, START+35
, START+36
FOODDESC START+1~, START+20*, START+21
>> INVPT START+3*, START+4, START+9, START+13*, START+14, START+16, START+22, START+24, START+25, START+26
IO START+12
IOF H
IOSL START+18, START+29, START+33, START+38
ITEMDA START+1~, START+6*, START+9, START+24*, START+25, START+26
NOW START+1~, START+12*, H
NSN START+1~, START+6*, START+9, START+24*, START+25, START+26
PAGE START+1~, START+12*, H*
PRCPFLAG START+1~, START+13, START+16, START+17*, START+18, START+22, START+24, START+25, START+29, START+30
, START+33, START+34, START+38, START+39, START+41
>> PRCPIN START+14*, H+1
REF START+1~, START+7*, START+9, START+22*, START+24, START+25, START+26, START+31
SCREEN START+1~, START+12*, START+18, START+29, START+33, START+38, H
TOTALFOO START+1~, START+19*, START+32*, START+36, START+37
TOTALINV START+1~, START+15*, START+37*, START+40
TOTALREF START+1~, START+23*, START+28*, START+31, START+32
TYPE START+1~, START+4*
>> Y START+11*, START+12*
>> ZTQUEUED START+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All