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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSXRPPL

Package: CMOP

Routine: PSXRPPL


Information

PSXRPPL ;BIR/WPB,BAB-Gathers data for the CMOP Transmission ;13 Mar 2002 10:31 AM

Source Information

Source file <PSXRPPL.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
CMOP 5 ^PSXBPSMS  ($$ADDROK,CHKACT,CHKDATA)^PSXMISC1  $$SBTECME^PSXRPPL1  (CHKDFN,EPHARM)^PSXRPPL2  BATCH^PSXRSYU  
Kernel 5 ^%ZIS  ^%ZISC  (T0,T1)^%ZOSV  ($$FMADD,$$NOW)^XLFDT  $$PATCH^XPDUTL  
VA FileMan 5 NOW^%DTC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  
Outpatient Pharmacy 4 $$SELPRT^PSOFDAUT  EN^PSOHLSN1  ^PSOLSET  QLBL^PSORXL  
E Claims Management Engine 1 ($$CMOPON,$$ECMEON)^BPSUTIL  
Pharmacy Data Management 1 PSOUL^PSSLOCK  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
CMOP 3 PSXMISC1  PSXRSUS  PSXRTRAN  

Entry Points

Name Comments DBIA/ICR reference
SDT ;
PROFILE
BEGIN ; Select print device
SET
PPL1 ; print patient labels
LOCK
DQUE ; sets the CMOP indicator field, and printed field in 52.5
FDAMG ; Selects FDA Medication Guide Printer
PPL
RX550215 ; put RX into RX multiple TRANS 550.215 for PSXBAT
PRT ; w auto error trapping
RXNCLEAR ; needs RXN
DFN
EXIT ;
OERRLOCK(RXN) ; set XTMP for OERR/CPRS order locking
BLD ;
RXNSET ; set ^XTMP("ORLK-"_ORDER per IA 4001 needs RXN
GETDATA ;Screens rxs and builds data
ACTLOG
CHKDFN ; use the patient 'C' index under RX multiple in file 550.2 to GET dfn to gather Patients' future RXs
DELETE ; deletes the CMOP STATUS field in PS(52.5, reindex 'AC' x-ref

External References

Name Field # of Occurrence
NOW^%DTC PRT+1, BLD+1
^%ZIS BEGIN+3, PROFILE+1
^%ZISC BEGIN+7, PROFILE+1
T0^%ZOSV SDT+3
T1^%ZOSV EXIT+3
$$CMOPON^BPSUTIL SDT+7
$$ECMEON^BPSUTIL SDT+7
FILE^DICN RX550215+6
^DIE DELETE+2, DQUE+3, DQUE+7, DQUE+11
^DIK PRT+3, BLD+6
$$GET1^DIQ GETDATA+11, FDAMG+1
$$SELPRT^PSOFDAUT FDAMG+3
EN^PSOHLSN1 BLD+10, DQUE+14
^PSOLSET BEGIN+1
QLBL^PSORXL PPL1+6, PPL1+7
PSOUL^PSSLOCK SDT+17, CHKDFN+7
^PSXBPSMS SDT+24
$$ADDROK^PSXMISC1 GETDATA+13
CHKACT^PSXMISC1 GETDATA+15
CHKDATA^PSXMISC1 GETDATA+20
$$SBTECME^PSXRPPL1 SDT+8
CHKDFN^PSXRPPL2 SDT+20
EPHARM^PSXRPPL2 GETDATA+19
BATCH^PSXRSYU RX550215+1
DEM^VADPT GETDATA+7
$$FMADD^XLFDT RXNSET+4
$$NOW^XLFDT RXNSET+4
$$PATCH^XPDUTL GETDATA+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"You must select a printer!",!
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !,"You must select a printer!",!
  • Line Location: PROFILE+2
Function Call: WRITE
  • Prompt: $C(7),!,"You must select a valid FDA Medication Guide printer."
  • Line Location: FDAMG+4
Routine Call
  • DIE
  • Line Location:
    • DELETE+2
    • DQUE+3
    • DQUE+7
    • DQUE+11
Routine Call
  • %ZIS
  • Line Location:
    • BEGIN+3
    • PROFILE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.5 - [#52.5] Classic Fileman Calls,  GET1^DIQ
^PSX(550.2 - [#550.2] Classic Fileman Calls
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] BEGIN+5
^%ZIS(2 - [#3.2] BEGIN+5
^PS(52.5 - [#52.5] SDT+14, SDT+15, SDT+16, GETDATA+4!, GETDATA+5!, GETDATA+6!, GETDATA+10, DELETE+1, DELETE+3*, DELETE+4
, CHKDFN+4, CHKDFN+5, CHKDFN+6, BLD+2, BLD+9, PPL1+4, DQUE+1, DQUE+3, DQUE+8*, DQUE+12*
, DQUE+13
^PSRX - [#52] BLD+8*, BLD+9, ACTLOG, ACTLOG+1, ACTLOG+2*, LOCK, LOCK+1*, RXNSET+2, RXNCLEAR+2
^PSX(550.2 - [#550.2] CHKDFN+1, CHKDFN+2, CHKDFN+3, PRT+2, DFN+1, DFN+2, DFN+3, BLD+1, BLD+2, RX550215+3*
, OERRLOCK+3
^TMP("PSXEPHIN" SDT+13!, SDT+24!, EXIT+4!
^TMP("PSXEPHNB" SDT+1!, SDT+24!, EXIT+4!
^TMP($J SDT+1!, GETDATA+12, SET+3*
^XTMP("ORLK-" RXNSET+5*, RXNCLEAR+3!
^XTMP("PSXCS" SET+2*

Label References

Name Line Occurrences
BEGIN BEGIN+4
BLD DFN+3
CHKDFN SDT+21
DELETE GETDATA+8, SET+5
DFN PRT+2
DQUE SET+3, BLD+11, DQUE+1
EXIT BEGIN+3, PROFILE+1, FDAMG+1
FDAMG PROFILE
GETDATA SDT+17, CHKDFN+7
LOCK LOCK
OERRLOCK SDT+17, CHKDFN+7
PPL PRT+2
PPL1 PPL
PROFILE BEGIN+2, PROFILE+2
RX550215 SET+3, SET+4

Naked Globals

Name Field # of Occurrence
^("BAR" BEGIN+5
^(0 RXNCLEAR+3
^(1 RXNSET+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!, PRT+1!, BLD+1, BLD+9!, LOCK+2!
%ZIS BEGIN+3*, PROFILE+1*!
%ZIS("A" BEGIN+3*, PROFILE+1*
%ZIS("B" BEGIN+3*
>> BATRXDA BLD+1*, BLD+2, BLD+5
BPSCNT SDT+8~*, SDT+10
CHKDT EXIT+2!, PRT+4!
CIND EXIT+1!, PRT+4!, DQUE+4*, DQUE+6, DQUE+10
CNAME EXIT+1!
CNT EXIT+1!, ACTLOG*, ACTLOG+2*, LOCK+1, LOCK+2!
COM EXIT+1!, BLD+9*, BLD+10, LOCK+1, LOCK+2!
D0 RX550215+2!, RX550215+8!
DA DELETE+2~*, PRT+3*, BLD+5~*, BLD+11*!, DQUE+3*!, DQUE+6*, DQUE+7!, DQUE+10*, DQUE+11!, RX550215+2!
, RX550215+8!
DA(1 BLD+5*, RX550215+4*
DAYS EXIT+2!, PRT+4!
DD RX550215+2!, RX550215+8!
DFN EXIT+1!, GETDATA+7~*, GETDATA+12, DFN*, DFN+1*, DFN+2, DFN+3, BLD+7, PPL1+4*
DIC RX550215+2!, RX550215+5*, RX550215+8!
DIC("DR" RX550215+5*
DIC(0 RX550215+5*
DIE EXIT+1!, DELETE+2~*, DQUE+3*!, DQUE+6*, DQUE+7!, DQUE+10*, DQUE+11!
DIK PRT+3*, BLD+5~*
DO RX550215+2!, RX550215+8!
DR EXIT+1!, DELETE+2~*, DQUE+3*!, DQUE+6*, DQUE+7!, DQUE+10*, DQUE+11!, RX550215+2!, RX550215+8!
DRUG EXIT+2!, PRT+4!
DRUGCHK EXIT+2!, PRT+4!
DT SET+2, DQUE+3, DQUE+6, DQUE+8
DTTM EXIT+1!, PRT+1*, BLD+1*, LOCK+1, DQUE+10
DUZ LOCK+1, DQUE+10, RXNSET+5
EPHQT GETDATA+18~*, GETDATA+19
FDAPRT FDAMG+1~*, FDAMG+2, FDAMG+3*, FDAMG+4, FDAMG+5
FILL EXIT+1!
FILNUM EXIT+1!
IO("Q" BEGIN+7!, PROFILE+1!
ION BEGIN+2, BEGIN+3, PROFILE, PROFILE+1, PROFILE+2
IOP PROFILE+1!
>> IOS BEGIN+5
IOST BEGIN+4
J BEGIN+5*, BEGIN+7!
JJ EXIT+1!, ACTLOG*, LOCK+2!
NDFN EXIT+1!, CHKDFN+4*, CHKDFN+5*, CHKDFN+6
NFLAG EXIT+1!, GETDATA+9*, SET+3*, PRT+4!, DFN*, BLD+7*, DQUE+2, DQUE+4, DQUE+5, DQUE+9
, DQUE+14
NM EXIT+2!, PRT+2*, PRT+4!, DFN+1, DFN+2, DFN+3
NOW RXNSET+2~, RXNSET+4*, RXNSET+5
NOW1 RXNSET+2~, RXNSET+4*, RXNSET+5
OPDT EXIT+2!
ORD PRT+4!, PPL*, PPL1+1, PPL1+2, PPL1+3, PPL1+8, RXNSET+2~*, RXNSET+3, RXNSET+5, RXNCLEAR+2~*
, RXNCLEAR+3
PDT PRT+4!
>> PFIO PPL1+5*
PHARCLK EXIT+2!, PRT+4!
PHY EXIT+2!, PRT+4!
PNAME EXIT+1!, SET+1*
>> POP BEGIN+3, PROFILE+1, FDAMG+1*
PPL PPL!, PPL1+2*, PPL1+3, PPL1+7*, PPL1+8!
PPL1 PPL!, PPL1+3*, PPL1+7, PPL1+8!
PRTDT SDT+8, SDT+14, SDT+20, EXIT+1!, CHKDFN+4
>> PSLION BEGIN+2*, BEGIN+3*
>> PSNP PPL1+5*, PPL1+7*
>> PSOBAR0 BEGIN+6
>> PSOBAR1 BEGIN+6
>> PSOBARS BEGIN+6*
>> PSOFDAPT FDAMG+1, FDAMG+3, FDAMG+5*
PSOION BEGIN+7!
>> PSOLAP BEGIN+2
>> PSOPAR BEGIN+1, BEGIN+6, PROFILE+1, PPL1+5
>> PSOPROP PROFILE, PROFILE+1*, PROFILE+2, PPL1+5
>> PSOSITE SDT+4, SET+2, FDAMG+1
>> PSOSU( BLD+7*, PPL, PPL1+1, PPL1+2, PPL1+3, PPL1+8!
PSTAT EXIT+2!, PRT+4!
PSXBAT SDT+2!, SDT+20, SDT+21, CHKDFN+1, CHKDFN+2, CHKDFN+3, PRT+2, PRT+3!, DFN+1, DFN+2
, DFN+3, BLD+1, BLD+2, BLD+5, RX550215+1, RX550215+3, RX550215+4, RX550215+5, OERRLOCK+1, OERRLOCK+3
>> PSXCS SDT+4, SET+2
>> PSXCSRX SET+2
PSXDGST EXIT+2!
PSXDIV EXIT+1!
>> PSXDTRG SDT+8, CHKDFN+4
>> PSXFIRST GETDATA+14*
>> PSXFLAG SET+3, SET+4
>> PSXGOOD GETDATA+13*, GETDATA+14
PSXMC EXIT+2!
PSXMDT EXIT+2!
PSXOK EXIT+1!, GETDATA+9*, GETDATA+10*, GETDATA+14*, GETDATA+16, SET, SET+3, SET+4, SET+5
>> PSXPTNM CHKDFN+2*, CHKDFN+3
>> PSXRTRAN SDT+20, SDT+21
>> PSXRXTDA RX550215+7*, OERRLOCK+1, OERRLOCK+3
>> PSXTDIV SDT+4*, SDT+7, SDT+8, SDT+14, SDT+15, SDT+16, GETDATA+4, GETDATA+5, GETDATA+6, CHKDFN+4
, CHKDFN+5, CHKDFN+6
>> PSXTYP SDT+4*, SDT+8, SDT+14, SDT+15, SDT+16, GETDATA+4, GETDATA+5, GETDATA+6, CHKDFN+4, CHKDFN+5
, CHKDFN+6
PTRA EXIT+2!, PRT+4!
PTRB EXIT+2!, PRT+4!
QTY EXIT+2!, PRT+4!
REC SDT+15*, SDT+16*, EXIT+1!, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+10, GETDATA+11, DELETE+1, DELETE+2
, DELETE+3, DELETE+4, CHKDFN+5*, CHKDFN+6*, BLD+2*, BLD+3, DQUE+1, DQUE+3, DQUE+6, DQUE+8
, DQUE+10, DQUE+12, DQUE+13
REF EXIT+1!
REL EXIT+2!, PRT+4!
RF ACTLOG+1*, LOCK+2!
RFCNT ACTLOG+1*, LOCK+1, LOCK+2!
>> RFL GETDATA+11*
RXCNTR BLD+7*, LOCK+2!, DQUE+10
RXERR EXIT+2!, PRT+4!
RXF EXIT+2!, PRT+4!, DFN+2*, DFN+3*
RXN SDT+17, GETDATA+10*, GETDATA+13, GETDATA+15, GETDATA+16!, SET+2, CHKDFN+7, DFN+1*, DFN+2*, DFN+3
, BLD+1, BLD+2, BLD+7, BLD+8, BLD+9, BLD+10, ACTLOG, ACTLOG+1, ACTLOG+2, LOCK
, LOCK+1, DQUE+14, RX550215+4, OERRLOCK~, OERRLOCK+1, OERRLOCK+3, RXNSET+1, RXNSET+2, RXNCLEAR+1, RXNCLEAR+2
RXNUM EXIT+1!
SDT SDT+14*, SDT+15, SDT+16, EXIT+1!, GETDATA+4, GETDATA+5, GETDATA+6, CHKDFN+4*, CHKDFN+5, CHKDFN+6
SFN EXIT+2!, PRT+4!, PPL1+1*, PPL1+2, PPL1+3, PPL1+4
SIG PRT+4!
SITE PRT+4!
SUS PRT+4!, BLD+2*, BLD+3, BLD+7, BLD+9, BLD+11
SUSPT PRT+4!, PPL1+5*
U BLD+2, BLD+8, OERRLOCK+3, RXNSET+5
VADM GETDATA+8!
VADM(1 SET+1
VADM(6 GETDATA+8
>> X RX550215+4*
XDFN SDT+14*, SDT+15*, SDT+16, EXIT+1!, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, SET+3, CHKDFN+3*
, CHKDFN+5
>> XRT0 EXIT+3
>> XRTL SDT+3
>> XRTN EXIT+3*
Y LOCK+2!, RX550215+7
ZCNT SDT+2!

Marked Items

Name Field # of Occurrence
$T( EXIT+3
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 |  Naked Globals |  Local Variables |  Marked Items |  All