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

Package: Outpatient Pharmacy

Routine: PSOSPML8


Information

PSOSPML8 ;WILM/BDB - State Prescription Monitoring Program Utilities ;10/07/12

Source Information

Source file <PSOSPML8.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 4 ($$RXRLDT,$$RXSTATE)^PSOBPSUT  ^PSOSPML1  ($$BLDBAT,$$GATHER,PAUSE)^PSOSPMU1  LOGERROR^PSOSPMUT  
VA FileMan 4 ^%DT  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  

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

Package Total Caller Graph
Outpatient Pharmacy 2 PSO SPMP RX NOT TRANSMITTED  PSOSPML7  

Entry Points

Name Comments DBIA/ICR reference
ASK ;
BEGDT ;
; - Ask for Start DATE
ENDDT ;
; - Ask for End DATE
END
PRINT ; Allow queueing
PSOQ ;
CHKST(RXIEN,FILL,STATE) ;check batch state

External References

Name Field # of Occurrence
^%DT BEGDT+3, ENDDT+3
^%ZIS PRINT+5
HOME^%ZIS PRINT+10
^%ZTLOAD PRINT+10
^DIC ASK+8
$$GET1^DIQ ASK+7, PSOQ+8, CHKST+4
^DIR ENDDT+17, ENDDT+25, PRINT+11
$$RXRLDT^PSOBPSUT PSOQ+8
$$RXSTATE^PSOBPSUT PSOQ+8
^PSOSPML1 ENDDT+26
$$BLDBAT^PSOSPMU1 ENDDT+19
$$GATHER^PSOSPMU1 ENDDT+10
PAUSE^PSOSPMU1 BEGDT+4, ENDDT+4
LOGERROR^PSOSPMUT ENDDT+20
$$FMADD^XLFDT PRINT+3
$$FMTE^XLFDT PSOQ+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGDT+3
Function Call: WRITE
  • Prompt: !!?5,"Only past dates are allowed."
  • Line Location: BEGDT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDT+3
Function Call: WRITE
  • Prompt: !!?5,"The latest end date permitted is TODAY-1 (yesterday)."
  • Line Location: ENDDT+4
Function Call: WRITE
  • Prompt: !!,"No Rx's Found"
  • Line Location: ENDDT+11
Function Call: WRITE
  • Prompt: !!,$P(BATIEN,"^",2),!
  • Line Location: ENDDT+20
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!!,"CS Prescriptions Not Transmitted Report"
  • Line Location: PSOQ+3
Function Call: WRITE
  • Prompt: !!,"Rx #",?15,"Fill #",?25,"Release Date",?45,"STATE"
  • Line Location: PSOQ+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOQ+9
Routine Call
  • DIC
  • Line Location:
    • ASK+8
Routine Call
  • DIR
  • Line Location:
    • ENDDT+17
    • ENDDT+25
    • PRINT+11
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+5
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(5 - [#5] Classic Fileman Calls,  GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(58.42 - [#58.42] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.41 - [#58.41] ASK+7
^PS(58.42 - [#58.42] CHKST+3
^TMP("PSOSPMRX" END!, PRINT+4
^XTMP("PSO70625" PRINT+2!, PRINT+3*, PRINT+4*, PSOQ+5, PSOQ+6, PSOQ+7

Label References

Name Line Occurrences
BEGDT BEGDT+4
END ENDDT+11
ENDDT ENDDT+4
PRINT ENDDT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ASK+1~, BEGDT+2*, ENDDT+2!*
%DT("A" BEGDT+2*, ENDDT+2*
%DT("B" ENDDT+2*
%DT(0 BEGDT+2*, ENDDT+2*
%ZIS ASK+2~, PRINT+5*
%ZIS("B" PRINT+5*
BATCH CHKST+1~, CHKST+3*, CHKST+4
BATIEN ASK+3~, ENDDT+19*, ENDDT+20
BEGDTTM ASK+1~, BEGDT+5*, ENDDT+2, ENDDT+10, ENDDT+19
DIC ASK+1~, ASK+6*
DIC("A" ASK+6*
DIC("B" ASK+7*
DIC("S" ASK+6*
DIC(0 ASK+8*
DIR ASK+1~, ENDDT+13~, ENDDT+21~, PRINT+11!
DIR("A" ENDDT+15*, ENDDT+23*
DIR("B" ENDDT+16*, ENDDT+24*
DIR(0 ENDDT+14*, ENDDT+22*, PRINT+11*
DIROUT ENDDT+13~, ENDDT+21~
DIRUT ASK+1~, ENDDT+13~, ENDDT+21~
DT BEGDT+4, ENDDT+4, PRINT+3
DTOUT ASK+1~, BEGDT+3, ENDDT+3, ENDDT+13~, ENDDT+21~
DUOUT ASK+1~, ENDDT+13~, ENDDT+21~
ENDDTTM ASK+1~, ENDDT+5*, ENDDT+10, ENDDT+19
FILL CHKST~, CHKST+3
IO("Q" PRINT+5!, PRINT+7
IOP PRINT+5!
LIST ASK+3~, ENDDT+6*, ENDDT+10
LIST("STATE" ENDDT+7*
POP ASK+2~, PRINT+5*, PRINT+6
PSOERROR ASK+1~
PSOJOB PRINT+1*, PRINT+2, PRINT+3, PRINT+4, PSOQ+5, PSOQ+6, PSOQ+7, PSOQ+10!
PSOSPFLG ASK+3~, PSOQ+4, PSOQ+8*
PSOSPI PSOQ+1~, PSOQ+2*, PSOQ+5*, PSOQ+6, PSOQ+7
PSOSPJ PSOQ+1~, PSOQ+2*, PSOQ+6*, PSOQ+7, PSOQ+8
PSOSPK PSOQ+1~, PSOQ+2*, PSOQ+7*, PSOQ+8
RECTYPE ASK+3~, ENDDT+8*, ENDDT+10
RSLT CHKST+1~, CHKST+2*, CHKST+4*, CHKST+5
RTSONLY ASK+3~, ENDDT+9*, ENDDT+10
RXCNT ASK+3~, ENDDT+10*, ENDDT+11
RXIEN CHKST~, CHKST+3
STATE ASK+3~, ASK+9*, ENDDT+7, ENDDT+10, ENDDT+20, CHKST~, CHKST+4
X ASK+1~, ASK+8, ENDDT+13~, ENDDT+21~
Y ASK+8, ASK+9, BEGDT+3, BEGDT+4, BEGDT+5, ENDDT+3, ENDDT+4, ENDDT+5, ENDDT+13~, ENDDT+18
, ENDDT+21~, ENDDT+26
ZTDESC ASK+2~, PRINT+8*
ZTRTN ASK+2~, PRINT+8*
ZTSAVE ASK+2~
ZTSAVE("PSOJOB" PRINT+9*
ZTSAVE("ZTREQ" PRINT+9*
ZTSK ASK+2~, PRINT+11
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