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

Package: IHS Changes To Pharmacy

Routine: APSPDRP1


Information

APSPDRP1 ; IHS/DSD/ENM - PRINT DUE REVIEW REPORT ; [ 09/03/97 1:30 PM ]

Source Information

Source file <APSPDRP1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
IHS Changes To Pharmacy 1 ^APSPDRP2  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Pharmacy 2 APSPDRP  APSPDRP2  

Entry Points

Name Comments DBIA/ICR reference
BODY ;
END
HEADER ;EP
EOJ ;
START ;
INIT ;
EOP ; Calls reader for an End of Page call
TOTALX
TOTAL ; Prints totals from Report

External References

Name Field # of Occurrence
^%ZIS START+2
^%ZISC BODY+2
^APSPDRP2 BODY+1
^DIR EOP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(^DIC(4,DUZ(2),0),"^",1)," ",$P(^APSPDUE(32.1,APSPDRP1("STUDY"),0),U,1)," STUDY REPORT"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!,$P(^APSPDUE(32.1,APSPDRP1("STUDY"),0),U,1)," STUDY REPORT"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?73,"Page ",APSPDRP1("PAGE")
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"DATE OF REPORT: "
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!,"This report will include all DUE review entries "
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: "from ",!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: Y," through "
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: Y,".",!!
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,?69,"CRITERIA",?(IOM-3),"ALL"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,?69,"MET",?(IOM-3),"MET",!
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,"DATE",?15,"PATIENT",?40,"PROVIDER",?62
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,?62
  • Condition for execution: $X+12>IOM
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: ?($X+3),APSPII
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: $S($L(APSPII)<2:" ",1:" ")
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: "_"
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: "_"
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: !,"TOTAL",?62
  • Line Location: TOTAL+6
Function Call: WRITE
  • Prompt: !,?62
  • Condition for execution: $X+12>IOM
  • Line Location: TOTAL+7
Function Call: WRITE
  • Prompt: ?($X+3),APSPDRP1("YES CNT",APSPII)
  • Line Location: TOTAL+7
Function Call: WRITE
  • Prompt: $S($L(APSPII)<2:" ",1:" ")
  • Line Location: TOTAL+7
Function Call: WRITE
  • Prompt: ?(IOM-3),APSPDRP1("ALL MET CNT")
  • Line Location: TOTAL+8
Function Call: WRITE
  • Prompt: !,"COUNT",?15,APSPDRP1("CNT")
  • Line Location: TOTAL+9
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTAL+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOTAL+11
Routine Call
  • DIR
  • Line Location:
    • EOP+1
Routine Call
  • %ZIS
  • Line Location:
    • START+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" START+1, EOP+3
^APSPDUE(32.1 - [#9009032.1] INIT+2, HEADER+2, HEADER+3
^APSPDUE(32.2 - [#9009032.2] INIT+2
^DD("DD" HEADER+6, HEADER+9, HEADER+10
^DIC(4 - [#4] HEADER+2
^TMP("APSPDRP1" BODY+1, EOJ+2!

Label References

Name Line Occurrences
BODY START+4
EOJ END
EOP TOTAL+2
HEADER BODY+1, TOTAL+1
INIT BODY+1
TOTAL BODY+1
TOTALX TOTAL+2

Naked Globals

Name Field # of Occurrence
^("XY" START+1, EOP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSPDRP("BD" HEADER+9
>> APSPDRP("ED" HEADER+10
>> APSPDRP("IOP" START+2
APSPDRP1 EOJ+2!
APSPDRP1("ALL MET CNT" , INIT+7*, TOTAL+8
APSPDRP1("CNT" INIT+7*, TOTAL+9
APSPDRP1("CR LF" , INIT+3*, INIT+4*, TOTAL+1, TOTAL+2
APSPDRP1("PAGE" INIT+8*, HEADER+1*, HEADER+4
APSPDRP1("QFLG" BODY+1, TOTAL+2, EOP+2*
APSPDRP1("STU DY CNT" , INIT+1*, INIT+2*, INIT+3, DY CR" , INIT+1!, INIT+2*, HEADER+14
APSPDRP1("STUDY" BODY+1*, INIT+2, HEADER+2, HEADER+3
APSPDRP1("YES CNT" , INIT+6!, TOTAL+7
APSPI INIT+2*, INIT+5!
APSPII HEADER+14*, HEADER+15!, TOTAL+7*
DIR EOP+1!, EOJ+2!
DIR(0 EOP+1*
DIRUT EOJ+2!
DT HEADER+6
DTOUT EOP+2, EOJ+2!
DUOUT EOP+2, EOJ+2!
DUZ(2 HEADER+2, HEADER+3
>> DX START+1*, EOP+3*
>> DY START+1*, EOP+3*
>> I HEADER+16*, TOTAL+4*
IO START+2, START+3
IOF TOTAL+1, TOTAL+11
IOM INIT+3, HEADER+11, HEADER+12, HEADER+14, HEADER+16, TOTAL+4, TOTAL+7, TOTAL+8
ION START+2
>> IOP START+2*
IOSL TOTAL+1, TOTAL+2
IOST TOTAL+1, TOTAL+2, TOTAL+11
U INIT+2, HEADER+2, HEADER+3
X EOP+1!
Y HEADER+6*!, HEADER+9*!, HEADER+10*, EOP+1!
ZTSK START+2, EOJ+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All