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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSOTPCLR

Package: Outpatient Pharmacy

Routine: PSOTPCLR


Information

PSOTPCLR ;BIRM/PDW-LETTER PRINT REPORTS ;AUG 8, 2003

Source Information

Source file <PSOTPCLR.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 2 $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO TPB LETTERS PRINTED REPORT  

Entry Points

Name Comments DBIA/ICR reference
DEQUE ; DEQUE/PRINT LETTERS
EN ;
HEADER ;
EXIT2
SUMMARY ;
PRINT ; print report
EXIT ;
PG
DEVICE ;

External References

Name Field # of Occurrence
^%ZIS DEVICE+2
^%ZISC DEVICE+7, EXIT2
^%ZTLOAD DEVICE+7
KILL^%ZTLOAD EXIT+2
$$GET1^DIQ DEQUE+4, DEQUE+5, DEQUE+6, PRINT+9, PRINT+11, SUMMARY+9, HEADER+5
^DIR EN+2, SUMMARY+3, HEADER+2, EXIT+1
$$FMTE^XLFDT DEQUE+6, PRINT+12, HEADER+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Queuing is recommended",!
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!,"Tasked with "_ZTSK
  • Line Location: DEVICE+8
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(52.91,DFN,.01)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?35,^TMP($J,"PSOTPBLR",DIVDA,PTNM,DFN)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,@IOF,!!,?10,"SUMMARY of TPB LETTER PRINTING "
  • Line Location: SUMMARY+4
Function Call: WRITE
  • Prompt: "'PRINTED'"
  • Line Location: SUMMARY+5
Function Call: WRITE
  • Prompt: "'NOT PRINTED'"
  • Line Location: SUMMARY+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUMMARY+7
Function Call: WRITE
  • Prompt: !,?5,$$GET1^DIQ(52.92,DIVDA,.01),?40,DIVCNT(DIVDA)
  • Line Location: SUMMARY+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMARY+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?20,$$GET1^DIQ(52.92,DIVDA,.01)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: " TPB PATIENTS LETTERS PRINTED REPORT",!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: " TPB PATIENTS LETTERS NOT PRINTED REPORT",!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?28,$$FMTE^XLFDT(DT,"1D"),?60,"Page: ",PG,!,LINE
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,?35,"Inactivation",!,"Patient",?35,"Date",?45,"Reason",!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,"End of Report",!
  • Line Location: EXIT+1
Routine Call
  • DIR
  • Line Location:
    • EN+2
    • SUMMARY+3
    • HEADER+2
    • EXIT+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.91 - [#52.91] GET1^DIQ
^PS(52.92 - [#52.92] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.91 - [#52.91] DEQUE+2, DEQUE+3
^TMP($J DEQUE+1!, DEQUE+7*, PRINT+3, PRINT+5, PRINT+6, PRINT+10, EXIT+2!

Label References

Name Line Occurrences
DEVICE EN+3, EN+4
EXIT SUMMARY+12
EXIT2 DEVICE+4
HEADER PRINT+4, PG
PG PRINT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+2!*
>> DFN DEQUE+3*, DEQUE+4, DEQUE+5, DEQUE+6, DEQUE+7, PRINT+6*, PRINT+9, PRINT+10, PRINT+11
DIR EN+2!, SUMMARY+3!, HEADER+2!, EXIT+1!, EXIT2+1!
DIR("A" EXIT+1*
DIR(0 EN+2*, SUMMARY+3*, HEADER+2*, EXIT+1*
DIVCNT DEQUE+1!, PRINT+1!, SUMMARY+1, SUMMARY+10, EXIT2+1!
DIVCNT( DEQUE+8*, PRINT+7*, SUMMARY+8, SUMMARY+9
DIVDA DEQUE+2*, DEQUE+3, DEQUE+7, DEQUE+8, PRINT+3*, PRINT+5, PRINT+6, PRINT+7, PRINT+10, SUMMARY+8*
, SUMMARY+9, HEADER+5, EXIT2+1!
DT HEADER+8
>> EXCODE PRINT+11*, PRINT+12
>> EXREA PRINT+11*, PRINT+13
>> INACTDT PRINT+11*, PRINT+12
IO PRINT+1
IO("Q" DEVICE+4
IOF SUMMARY+4, HEADER+3
IOSL PG
IOST SUMMARY+3, HEADER+2, EXIT+1
LINE PRINT+2*, HEADER+8, EXIT2+1!
PARAM EN+3*, EN+4*, DEQUE+4, DEQUE+5, PRINT+10, SUMMARY+5, HEADER+6, HEADER+9, EXIT2+1!
PG PRINT+2*, SUMMARY+3, HEADER+2, HEADER+4*, HEADER+8, EXIT2+1!
>> POP DEVICE+3
PRTDT DEQUE+6*, DEQUE+7, EXIT2+1!
PRTDTI DEQUE+4*, DEQUE+5*, DEQUE+6, EXIT2+1!
PSOSTOP PRINT+1!, PRINT+3, PRINT+5, PRINT+6, SUMMARY+2, SUMMARY+3*, HEADER+2*
PTNM DEQUE+6*, DEQUE+7, PRINT+5*, PRINT+6, PRINT+10, EXIT2+1!
SRDT EXIT2+1!
>> Y EN+3, EN+4, SUMMARY+3, HEADER+2
>> ZTDESC DEVICE+5*
>> ZTRTN DEVICE+5*
>> ZTSAVE("PARAM" DEVICE+6*
ZTSK DEVICE+4!, DEVICE+8, EXIT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All