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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSPRRTS

Package: IHS Changes To Pharmacy

Routine: APSPRRTS


Information

APSPRRTS ; IHS/MSC/PLS - RETURN TO STOCK REPORT ;23-Sep-2010 18:27;SM

Source Information

Source file <APSPRRTS.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To Pharmacy 1 ($$DIR,$$GETIEN,ASKDATES)^APSPUTIL  
IHS Patient 1 $$HRN^AUPNPAT  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;EP
DRGVRY(DRUG,RX) ;EP
PRINT3 ;EP
EN ;EP
SET(RX,ACT) ;EP
HDR ;EP
DCVRY(DCLS,RX) ;EP
DASH ;EP
HDR1 ;EP
DEV ;
PRINT2(DATA) ;EP
DIVVRY(RX,DIV) ;EP
CVTDCLS(DCLS) ; EP
PRINT ;EP
DELFLG(RX) ;EP
FIND(DCLS) ;EP
OUT ;EP

External References

Name Field # of Occurrence
$$DIR^APSPUTIL EN+11, EN+17, EN+22, EN+29
$$GETIEN^APSPUTIL EN+16, EN+20
ASKDATES^APSPUTIL EN+6
$$HRN^AUPNPAT SET+17
$$GET1^DIQ PRINT1+4, SET+17, SET+19, SET+21, SET+22, HDR+8, HDR+9
^XBDBQUE DEV+4
$$FMTE^XLFDT EN+8, EN+9, PRINT2+1, HDR+3
$$NOW^XLFDT HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Pharmacy Return to Stock report by Division"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"|"_$$GET1^DIQ(59,DIV,.01)_"|"
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !,$P($TR($$FMTE^XLFDT($P(DATA,U),"5Z"),"@"," "),":",1,2)_$P(DATA,U,8),?20,$P(DATA,U,9)_$P(DATA,U,3),?38,$P(DATA,U,7),?53,$E($P(DATA,U,6),1,34),?95,$P(DATA,U,4),?101,$$FMTE^XLFDT($P(DATA,U,2),"5Z"),?116,$P(DATA,U,10)
  • Line Location: PRINT2+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Returned to Stock Report",?35,$P($TR($$FMTE^XLFDT($$NOW^XLFDT,"5Z"),"@"," "),":",1,2),?(IOM-10),"Page: "_APSPPG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Report Criteria: (An '*' after RTS Date indicates a reissued original Rx.)"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !," (An '*' prior to the Rx Number indicates a deleted prescription.)"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," (A '#' indicates that quantity is unknown for returned partial fill.)"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?5,"Inclusive Dates: "_APSPBDF_" to "_APSPEDF
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?5,"Pharmacy Division: "_$S(APSPDIV:$$GET1^DIQ(59,APSPDIV,.01),1:"All")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?5,"Type of Search: "_$S(APSPRTYP=3:"All Drugs",APSPRTYP=2:"Drug Class ("_APSPDCTN(APSPDCLS)_")",APSPRTYP=1:"Specific Drug ("_$$GET1^DIQ(50,APSPDRG,.01)_")",1:"")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?5,"Sorted by: "_$S($G(APSPDCLS):"Drug Class then Drug Name then RTS Date/Time",$G(APSPDSUB):"Drug Name then RTS Date/Time",1:"RTS Date/Time")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "RTS Date/Time",?20,"Rx Number",?38,"Act Reference",?53,"Drug Name",?95,"Qty",?101,"Last Disp Date",?116,"Pt ID"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DASH+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DASH+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DASH+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
52.3 GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] SET+10, SET+11, DCVRY+4, DCVRY+5
^PSRX - [#52] FIND+3, FIND+4, FIND+6, FIND+10, FIND+11, SET+5, SET+6, SET+7, SET+15, DRGVRY+1
, DCVRY+2, DCVRY+3, DIVVRY+2, DELFLG+1
^TMP($J OUT+1!, PRINT1+3, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+10, PRINT1+13, PRINT1+14, PRINT1+16, PRINT1+19
, PRINT1+20, PRINT1+21, PRINT1+22, PRINT1+24, SET+3, SET+22*, SET+23*, SET+24*, SET+25*

Label References

Name Line Occurrences
$$CVTDCLS SET+12
$$DCVRY FIND+8
$$DELFLG SET+22
$$DIVVRY FIND+5
$$DRGVRY FIND+7
DASH HDR1+1, HDR1+3
DEV EN+30
FIND OUT+2
HDR PRINT+3, PRINT3+1
HDR1 HDR+11
PRINT OUT+3
PRINT1 PRINT+4
PRINT2 PRINT1+10, PRINT1+16, PRINT1+24
PRINT3 PRINT1+4, PRINT2+2
SET FIND+14

Naked Globals

Name Field # of Occurrence
^( PRINT1+9, PRINT1+15, PRINT1+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A0 FIND+1~, FIND+11*, FIND+12, FIND+13
ACT SET~, SET+15, SET+21, SET+22
ACT0 SET+2~, SET+15*, SET+16, SET+18
ACTIEN FIND+1~, FIND+9*, FIND+10*, FIND+11, FIND+14
ACTREF SET+2~, SET+18*, SET+22
APSPBD EN+1~, EN+6, EN+8, EN+10*, FIND+13, SET+20
APSPBDF EN+2~, EN+8*, HDR+7
APSPDCLS EN+1~, EN+22*, OUT+2, HDR+9, HDR+10
APSPDCT EN+2~
APSPDCT( DCVRY+6
APSPDCT(1 EN+25*
APSPDCT(2 EN+25*
APSPDCT(3 EN+25*
APSPDCTN EN+2~
APSPDCTN( HDR+9
APSPDCTN(1 EN+26*
APSPDCTN(2 EN+26*
APSPDCTN(3 EN+26*
APSPDIV EN+1~, EN+3*, EN+11*, EN+13, EN+14*, EN+16*, FIND+5, PRINT1+4, HDR+8
APSPDRG EN+2~, EN+3*, EN+20*, EN+28*, FIND+7, HDR+9
APSPDSUB EN+1~, EN+3*, EN+24*, EN+29*, PRINT1+5, PRINT1+12, HDR+10
APSPED EN+1~, EN+6, EN+9, EN+10*, FIND+13, SET+20
APSPEDF EN+2~, EN+9*, HDR+7
APSPPG PRINT+1~, PRINT+2*, HDR+2*, HDR+3
APSPQ EN+1~, EN+3*, EN+6, EN+7, EN+11, EN+12, EN+15, EN+16, EN+17, EN+18
, EN+19, EN+20, EN+21, EN+22, EN+23, EN+29
APSPRTYP EN+1~, EN+17*, EN+19, EN+21, FIND+7, FIND+8, PRINT1+5, PRINT1+18, HDR+9
DASH DASH+1~, DASH+2*
DATA PRINT2~, PRINT2+1
DCLS FIND~, FIND+8, SET+1~, SET+11*, SET+12*, SET+22, SET+24, DCVRY~, DCVRY+6, CVTDCLS~
, CVTDCLS+1, CVTDCLS+2, CVTDCLS+3, CVTDCLS+4
DCLSVAL DCVRY+1~, DCVRY+5*, DCVRY+6
DFLG PRINT+1~, PRINT+2*, PRINT+5, PRINT1+11*, PRINT1+17*, PRINT1+25*
DIV PRINT1+2~, PRINT1+3*, PRINT1+4, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+13, PRINT1+14, PRINT1+19, PRINT1+20
, PRINT1+21, PRINT1+22, SET+1~, SET+8*, SET+17, SET+23, SET+24, SET+25, DIVVRY~, DIVVRY+1
, DIVVRY+2
DRGIEN DCVRY+1~, DCVRY+3*, DCVRY+4, DCVRY+5
>> DRGNM SET+10*, SET+22, SET+24, SET+25
DRUG SET+1~, SET+9*, SET+10, SET+11, DRGVRY~, DRGVRY+1
DT EN+6
FILLDT FIND+1~
HRN SET+2~, SET+17*, SET+22
IOF EN+4, HDR+1
IOM HDR+3, DASH+2
IOSL PRINT3+1
LSTDSPDT SET+1~, SET+13*, SET+22
NODE0 SET+1~, SET+5*, SET+9, SET+17, SET+22
NODE2 SET+1~, SET+6*, SET+8
NODE3 SET+1~, SET+7*, SET+13
>> NXT SET+3*, SET+4*, SET+22, SET+23, SET+24, SET+25
RDT SET+1~, SET+19*, SET+20
RIFLG SET+1~, SET+14*, SET+21*, SET+22
RTSDATE SET+1~, SET+16*, SET+22, SET+23, SET+24, SET+25
RTSDT FIND+1~
RX SET~, SET+5, SET+6, SET+7, SET+15, SET+19, SET+21, SET+22, SET+23, SET+24
, SET+25, DRGVRY~, DRGVRY+1, DCVRY~, DCVRY+3, DIVVRY~, DIVVRY+2, DELFLG~, DELFLG+1
RXIEN FIND+1~, FIND+2*, FIND+3*, FIND+4, FIND+5, FIND+6, FIND+7, FIND+8, FIND+10, FIND+11
, FIND+14, DCVRY+2
RXRTSDT DCVRY+1~, DCVRY+2*
SUB1 PRINT1+2~, PRINT1+6*, PRINT1+7, PRINT1+8, PRINT1+13*, PRINT1+14, PRINT1+19*, PRINT1+20, PRINT1+21, PRINT1+22
SUB2 PRINT1+2~, PRINT1+7*, PRINT1+8, PRINT1+14*, PRINT1+15, PRINT1+20*, PRINT1+21, PRINT1+22
SUB3 PRINT1+2~, PRINT1+8*, PRINT1+9, PRINT1+21*, PRINT1+22
SUB4 PRINT1+2~, PRINT1+22*, PRINT1+23
U FIND+6, FIND+12, PRINT2+1, SET+8, SET+9, SET+10, SET+11, SET+17, SET+18, SET+22
, DRGVRY+1, DCVRY+2, DCVRY+3, DCVRY+5, DIVVRY+2
VAL PRINT1+2~, PRINT1+9*, PRINT1+10, PRINT1+15*, PRINT1+16, PRINT1+23*, PRINT1+24
XBNS DEV+1~, DEV+3*
XBRP DEV+1~, DEV+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All