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

Package: IHS Changes To Pharmacy

Routine: APSPCTR1


Information

APSPCTR1 ; IHS/DSD/ENM - CONTROLLED DRUG REPORT PRINTOUT ;11-Nov-2009 10:11;SM

Source Information

Source file <APSPCTR1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient 1 $$HRN^AUPNPAT  
Kernel 1 ($$DT,$$FMTE)^XLFDT  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPCTR  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;EP
PRINT3 ;EP
SUB2
SUB ;W ! F I=1:1:43 W "-"
LOP1
DIVSUB1 ;PRINT TOTAL SPECIAL HANDLING CODES
TOTALS ;
PRINT2(DATA) ; EP -
LOP
DIVSUB ;PRINT TOTAL PRESCRIPTIONS/REFILLS
PRINT ;EP
LOOP1
LOOP
HDR ;EP

External References

Name Field # of Occurrence
$$HRN^AUPNPAT PRINT2+4
$$GET1^DIQ PRINT2+3, PRINT2+15
$$DT^XLFDT HDR+7
$$FMTE^XLFDT PRINT2+15, HDR+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(DATA,U,5),?15,$P(DATA,U,8),?57,$P(DATA,U,6),?64,$$GET1^DIQ(200,$P(DATA,U,14),.01),?83,$$FMTE^XLFDT($P(DATA,U,2),"5Z"),?98,$E($$GET1^DIQ(2,DFN,.01),1,18),?118,HRN,?127,$$GET1^DIQ(200,$P(DATA,U,16),1)
  • Line Location: PRINT2+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DIVSUB+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DIVSUB+1
Function Call: WRITE
  • Prompt: !,"TOTAL # OF PRESCRIPTIONS : ",APSPGT
  • Line Location: DIVSUB+2
Function Call: WRITE
  • Prompt: ?($X+5),"TOTAL # NEW RX'S : ",TNEW
  • Line Location: DIVSUB+3
Function Call: WRITE
  • Prompt: ?($X+5),"TOTAL # REFILLS : ",TREFILL
  • Line Location: DIVSUB+4
Function Call: WRITE
  • Prompt: ?($X+5),"TOTAL # PARTIALS : ",TPARTIAL
  • Line Location: DIVSUB+5
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: DIVSUB+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DIVSUB1+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DIVSUB1+1
Function Call: WRITE
  • Prompt: !,"TOTAL # OF PRESCRIPTIONS : ",APSPGT
  • Line Location: DIVSUB1+2
Function Call: WRITE
  • Prompt: ?($X+5),"TOTAL # CODE 2's : ",APSPT(2)
  • Line Location: DIVSUB1+3
Function Call: WRITE
  • Prompt: ?($X+5),"TOTAL # CODES 3-5 : ",APSPT(35)
  • Line Location: DIVSUB1+4
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: DIVSUB1+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUB+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB2+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUB2+0
Function Call: WRITE
  • Prompt: !,"SUB-TOTAL # OF RX's : ",TCOUNT
  • Line Location: SUB2+1
Function Call: WRITE
  • Prompt: ?($X+5),"TOTAL QTY : ",TQTY,!
  • Line Location: SUB2+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,APSPDV," CONTROLLED DRUG USE LIST (By ",$S(APSPDTDR=1:"DATE",APSPDTDR=2:"Drug",1:"")_" Order)"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?73,"Page ",APSPPG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"DATE OF LISTING: "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($$DT^XLFDT(),"5Z")
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Drug Class: "_APSPDCTN(APSPDCLS)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"All Divisions for: ",$P(^DIC(4,DUZ(2),0),U,1)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"Division: ",$G(APSPDV)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !!,"This list will include all Prescriptions for any controlled"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: " medications dispensed from "
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: APSPBDF," through ",APSPEDF,!!
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !!,"RX #",?13,"DRUG",?57,"QTY",?64,"PHYSICIAN"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?83,"DATE FILLED",?98,"PATIENT",?118,"CHART #",?127,"CLERK"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!?20,"NO PATIENTS RECEIVED MEDICATION"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HDR+10
^PS(59 - [#59] HDR+3
^TMP("APSP" LOOP, LOOP1, LOP, LOP1
^TMP($J PRINT1+4, PRINT1+7, PRINT1+8, PRINT1+10, PRINT1+11, PRINT1+12, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+22
, PRINT1+23, HDR+18

Label References

Name Line Occurrences
DIVSUB PRINT1+16
DIVSUB1 PRINT1+27
HDR PRINT1+5, PRINT3+1
LOOP1 LOOP
LOP1 LOP
PRINT LOOP1, LOP1
PRINT1 PRINT+4
PRINT2 PRINT1+12, PRINT1+23
PRINT3 PRINT2+16
SUB PRINT1+26, LOOP
SUB2 PRINT1+15, LOP
TOTALS PRINT1+14, PRINT1+25, LOOP1, LOP1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSP("2" SUB+1*
>> APSP("3-5" PRINT1+3*, SUB+1*, TOTALS+1*
>> APSP("PAGE" DIVSUB+6*, DIVSUB1+5*
>> APSP(2 PRINT1+3*, TOTALS+2*
>> APSPBDF HDR+14
>> APSPD LOOP*, LOOP1, LOP1*
>> APSPDCLS HDR+8
>> APSPDCTN( HDR+8
>> APSPDIV LOOP, LOOP1, LOP, LOP1, HDR+10
>> APSPDR LOOP1*, LOP*, LOP1
>> APSPDTDR PRINT1+6, TOTALS+1, TOTALS+2, HDR+4
>> APSPDV HDR+3*, HDR+4, HDR+11
>> APSPEDF HDR+14
APSPGT PRINT+1~, PRINT+2*, DIVSUB+2, DIVSUB+6*, DIVSUB1+2, DIVSUB1+5*, TOTALS+3*
>> APSPN LOOP1*, LOP1*
APSPPG PRINT+1~, PRINT+2*, HDR+2*, HDR+5
APSPSH PRINT1+1~, PRINT1+9*, PRINT1+20*, LOOP*, LOOP1, LOP*, LOP1, TOTALS+1, TOTALS+2
APSPT PRINT+1~
APSPT(2 PRINT1+3*, DIVSUB1+3, DIVSUB1+5*, TOTALS+2*
APSPT(35 PRINT1+3*, DIVSUB1+4, DIVSUB1+5*, TOTALS+1*
DATA PRINT2~, PRINT2+2, PRINT2+5, PRINT2+7, PRINT2+10, PRINT2+15
>> DCOUNT PRINT+3*, PRINT2+6*, TOTALS+3*
DFLG PRINT+1~, PRINT+2*, PRINT+5, PRINT1+13*, PRINT1+24*
DFN PRINT2+1~, PRINT2+3*, PRINT2+4, PRINT2+15
DIV PRINT1+1~, PRINT1+4*, PRINT1+7, PRINT1+8, PRINT1+10, PRINT1+11, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+22
, HDR+3
DNEW PRINT+1~, PRINT+3*, PRINT2+12*, TOTALS+4*
DPARTIAL PRINT+1~, PRINT+3*, PRINT2+8*, TOTALS+6*
DREFILL PRINT+1~, PRINT+3*, PRINT2+11*, TOTALS+5*
DUZ(2 PRINT2+4, HDR+10
HRN PRINT2+1~, PRINT2+4*, PRINT2+15
>> I DIVSUB+1*, DIVSUB1+1*, SUB2*, HDR+17*
IOF DIVSUB+7, DIVSUB1+6, HDR+1
IOM DIVSUB+1, DIVSUB1+1, HDR+17
IOSL PRINT3+1
IOST DIVSUB+7, DIVSUB1+6
LP PRINT1+1~
LSTFDT PRINT1+1~, PRINT1+2*
NEWPG PRINT+1~, PRINT+2*
RX PRINT2+1~, PRINT2+2*, PRINT2+3
SUB1 PRINT1+1~, PRINT1+7*, PRINT1+8, PRINT1+10, PRINT1+11, PRINT1+18*, PRINT1+19, PRINT1+21, PRINT1+22
SUB2 PRINT1+1~, PRINT1+8*, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+19*, PRINT1+20, PRINT1+21, PRINT1+22
SUB3 PRINT1+1~, PRINT1+10*, PRINT1+11, PRINT1+21*, PRINT1+22
SUB4 PRINT1+1~, PRINT1+11*, PRINT1+12, PRINT1+22*, PRINT1+23
SUB5 PRINT1+1~
>> TCOUNT PRINT+3*, SUB2+1, SUB2+3*, TOTALS+3*
>> TNEW PRINT+3*, DIVSUB+3, DIVSUB+6*, TOTALS+4*
TPARTIAL PRINT+1~, PRINT+3*, DIVSUB+5, DIVSUB+6*, TOTALS+6*
>> TQTY PRINT+3*, PRINT2+5*, SUB2+2, SUB2+3*
>> TREFILL PRINT+3*, DIVSUB+4, DIVSUB+6*, TOTALS+5*
U PRINT2+5, PRINT2+7, PRINT2+10, PRINT2+15, HDR+3, HDR+10
VAL PRINT1+1~
X HDR+9!
Y HDR+9!
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