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 |  All
Print Page as PDF
Routine: PSOTPRX1

Package: Outpatient Pharmacy

Routine: PSOTPRX1


Information

PSOTPRX1 ;BIR/MHA-TPB medication procesing driver ;08/21/03

Source Information

Source file <PSOTPRX1.m>

Call Graph

Call Graph

Call Graph Total: 26

Package Total Call Graph
Outpatient Pharmacy 15 ^PSOBING1  ^PSOBUILD  GMRA^PSODEM  EN^PSOHLUP  EN^PSOLMAO  EN^PSOLMUTL  ^PSOLSET  DC^PSOORFI2  
BLD^PSOORUT1  ^PSOORUT2  DEAD^PSOPTPST  ^PSORXL  (BBADD,WIND)^PSOSUPOE  EXFLAG^PSOTPCAN  ST^PSOTPPRV  
VA FileMan 7 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  (,EN)^DIK  EN^DIQ1  ^DIR  
Adverse Reaction Tracking 1 EN2^GMRAPEM0  
Kernel 1 $$UP^XLFSTR  
List Manager 1 (CLEAR,FULL)^VALM1  
Registration 1 (ELIG,KVA)^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: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO TPB RX ENTRY  

Entry Points

Name Comments DBIA/ICR reference
PROFILE ;
ELIG ; shows eligibility and disabilities
END
PROFILEX ;
PT ;
OERR
PROV ;
CHK ;
NX
START
INIT ;
EOJ ;
KV
MES
PTX ;
WRN
INITX

External References

Name Field # of Occurrence
NOW^%DTC OERR+3
^DIC PT+3, OERR+24
FILE^DICN OERR+9
^DIE OERR+16, OERR+18
^DIK OERR+28
EN^DIK OERR+10
EN^DIQ1 OERR+1
^DIR PROV+4
EN2^GMRAPEM0 PROV+5
^PSOBING1 START+11
^PSOBUILD PROV+7, PROFILE+1
GMRA^PSODEM PROFILE+2
EN^PSOHLUP OERR+11
EN^PSOLMAO PROV+12
EN^PSOLMUTL PROV+11
^PSOLSET INIT+2
DC^PSOORFI2 PROV+9
BLD^PSOORUT1 PROV+11
^PSOORUT2 PROV+11
DEAD^PSOPTPST OERR+1
^PSORXL START+8
BBADD^PSOSUPOE START+7
WIND^PSOSUPOE START+7
EXFLAG^PSOTPCAN NX
ST^PSOTPPRV PROV+1
ELIG^VADPT ELIG+1
KVA^VADPT EOJ+3
CLEAR^VALM1 PROV+12
FULL^VALM1 START+3, EOJ+3
$$UP^XLFSTR OERR+18, OERR+20, OERR+29, CHK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Patient has another language preference!",!
  • Line Location: OERR+2
Function Call: WRITE
  • Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")"
  • Line Location: OERR+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Patient Data is Being Edited by Another User!",!
  • Line Location: OERR+13
Function Call: WRITE
  • Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")",!
  • Line Location: OERR+14
Function Call: WRITE
  • Prompt: !!,?5,">>PHARMACY PATIENT DATA<<",!
  • Line Location: OERR+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: PROV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PROV+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Invalid Selection - Only 'NON-VA' patient status can be processed through"
  • Line Location: MES+0
Function Call: WRITE
  • Prompt: !,"this option. For all other statuses use the regular Patient Prescription"
  • Line Location: MES+1
Function Call: WRITE
  • Prompt: !,"Processing option"
  • Line Location: MES+2
Function Call: WRITE
  • Prompt: $C(7),!!?15,"*** Current RX Patient Status is "_X_" ***"
  • Line Location: WRN+0
Function Call: WRITE
  • Prompt: !,"Only 'NON-VA' patient status should be processed through this option."
  • Line Location: WRN+1
Function Call: WRITE
  • Prompt: !,"For all other statuses use the regular Patient Prescription Processing option."
  • Line Location: WRN+2
Function Call: WRITE
  • Prompt: !,?10,$P(VAEL(1,N),"^",2)
  • Line Location: ELIG+1
Routine Call
  • DIE
  • Line Location:
    • OERR+16
    • OERR+18
Routine Call
  • DIC
  • Line Location:
    • PT+3
    • OERR+24
Routine Call
  • DIR
  • Line Location:
    • PROV+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(55 - [#55] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" OERR+13
^DIC(31 - [#31] ELIG+3
^DPT - [#2] OERR, OERR+5, OERR+14, ELIG+2
^PS(52.41 - [#52.41] PROV+9
^PS(53 - [#53] OERR+18, OERR+20, OERR+29, OERR+30, CHK+2
^PS(55 - [#55] START+12*, OERR+2, OERR+7, OERR+10*, OERR+11, OERR+12, OERR+13, OERR+16, OERR+17, OERR+19
, OERR+28, OERR+30*, PROV+6, CHK+2*
^PSRX - [#52] START+6
^TMP("PS" PTX+1!
^TMP("PSOAL" EOJ+5!
^TMP("PSOAO" EOJ+5!
^TMP("PSOBB" START+10!, OERR+3*
^TMP("PSOHDR" EOJ+5!
^TMP("PSOPF" EOJ+5!
^TMP("PSOPI" EOJ+5!
^TMP("PSOPO" EOJ+5!
^TMP("PSORXDC" PT+1!, EOJ+5!
^TMP("PSOSF" EOJ+5!
^VA(200 - [#200] PROV+2
^XUSEC("PSORPH" INIT+3

Label References

Name Line Occurrences
@( PROV+8
ELIG OERR+22
END START+2, START+3
EOJ NX, OERR+12, OERR+21, PROV+10
INIT START
KV OERR+31, PROV+3
MES OERR+29, CHK+2
NX START+3, START+9, PROV+1
PROFILEX PROFILE+2
PT START+3
PTX PT+4, PROV+12
START NX
WRN OERR+20

Naked Globals

Name Field # of Occurrence
^(0 START+12*, PROV+6, PROV+9, ELIG+2, ELIG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OERR+3, EOJ+3!
%DT EOJ+3!
%I EOJ+3!
BBFLG START+11!, EOJ+6!
BBRX START+11!, EOJ+6!
BINGCRT START+7*, START+11!
BINGRTE START+7*, START+11!
C PTX+1!, EOJ+4!
CLOZPAT PT+1!
COMM EOJ+1!
D EOJ+6!
D0 EOJ+3!
DA PT+3!, OERR+1*!, OERR+9!, OERR+10*, OERR+16*, OERR+28*, PROV+1, PROV+2, PROV+13!
DAT EOJ+3!
DD OERR+9!
DEA PTX+1!
DEAD EOJ+4!
DFN OERR*, PROV+13*, EOJ+1!, EOJ+3!, ELIG+2, PROFILE+2*
DGI EOJ+1!
DGS EOJ+1!
DIC PT+1!, PT+3*!, OERR+1!*, OERR+4*, OERR+9!, OERR+23!, OERR+24*!, PROV+13!
DIC("A" OERR+24*
DIC("B" OERR+23*
DIC("S" PT+2*
DIC(0 PT+3*, OERR+9*, OERR+24*
DIE OERR+15*, OERR+23!, PROV+13!
DIK OERR+10!*, OERR+28*
DIK(1 OERR+10*
>> DINUM OERR+9*
DIQ OERR+1!*
DIR KV!
DIR("A" PROV+3*
DIR("B" PROV+4*
DIR(0 PROV+4*
DIRUT OERR+25, KV!
>> DISGROUP START+11
DLAYGO OERR+4*, PROV+13!
DO OERR+9!
DR OERR+1!*, OERR+9!, OERR+15*, OERR+18*, OERR+23!, PROV+13!
DRG EOJ+3!
DTOUT OERR+17, KV!
DUOUT KV!
DUZ INIT+3
GMRA EOJ+6!
GMRAL EOJ+6!
GMRAREC EOJ+6!
>> I ELIG+2*
>> I1 ELIG+2*, ELIG+3, ELIG+4, ELIG+5
II PROV+9*, PROV+10!
INCOM EOJ+4!
LOG EOJ+3!
>> MEDP OERR, EOJ+2, EOJ+5
N ELIG+1*, ELIG+6!
NOBG START+9, EOJ+6!
NOPROC START+3!, OERR+1*
NPPROC OERR+1!
ORX EOJ+3!
P1 EOJ+3!
PAT OERR~, PROV+11*, EOJ+5!
>> PBINGRTE START+7
POERR OERR~, PROV+11*, EOJ+4!
POERR("DEAD" PROV+8, PROV+9
POERR("QFLG" OERR+12, OERR+13*, OERR+21, OERR+23!, OERR+26*, OERR+29*, PROV+9*, PROV+10*
PRC PTX+1!
PS EOJ+4!
PSCNT PTX+1!, EOJ+3!, ELIG+3*, ELIG+4, ELIG+5
PSDIS EOJ+3!, ELIG+3*, ELIG+4, ELIG+5
PSOACT PTX+1!
PSOAL EOJ+3!
PSOBCK START*, EOJ+3!, EOJ+6!
PSOBILL EOJ+1!
PSOBXPUL EOJ+3!
PSOCLC PTX+1!, EOJ+4!
PSOCNT EOJ+4!
PSOCPAY EOJ+1!
PSOCS PTX+1!
PSOCT PTX+1!, EOJ+4!
PSODA EOJ+4!
PSODFN START+12, NX, PT+1!, OERR*, OERR+1, OERR+2, OERR+5, OERR+7, OERR+9, OERR+10
, OERR+11, OERR+12, OERR+13, OERR+14, OERR+16, OERR+17, OERR+19, OERR+28, OERR+30, PROV+6
, PROV+9, PROV+11, PROV+13*, CHK+2, EOJ+1!, PROFILE+2
>> PSODRG PROFILE+3*
PSODRUG START!, EOJ+1!
PSODT EOJ+6!
PSOERR START*, EOJ+1!
PSOERR("DEAD" PROV+10!
PSOFIN START!, OERR+5, OERR+13, OERR+26, OERR+32
PSOFINFL PTX+1!
PSOFLAG EOJ+6!
PSOFROM START+7*, START+11, EOJ+4!
PSOHD PTX+1!, EOJ+4!
PSOIBQS EOJ+1!
PSOID START!, EOJ+3!
PSOLOUD OERR+11*!
PSOLST PTX+1!, EOJ+3!
PSOMED EOJ+1!
PSON EOJ+3!
PSOOPT PTX+1!, EOJ+1!
>> PSOPAR INIT+2, INIT+3
PSOPBM START+12!, PT+1!, OERR+6!, OERR+8*, OERR+27!, PROV+6*, EOJ+1!
PSOPBM1 START+8*, START+12!, PT+1!
PSOPF PTX+1!, EOJ+1!
PSOPI EOJ+1!
PSOPTPST EOJ+3!
PSOQFLG START!, OERR+1!, OERR+4*, PROV+8, PROV+10, EOJ+2!
PSOQUIT START!, OERR+13*, OERR+26*, PROV+12, EOJ+5
PSORX START+8!, EOJ+1!
PSORX("NAME" OERR*, OERR+5, OERR+14
PSORX("PATIEN T STATUS" , OERR+20*, OERR+30*
PSORX("PROVID ER NAME" , PROV+2*
PSORX("PSOL" START+8
PSORX("QFLG" START+2, START+3, INIT+1*, INIT+2*, PT+1*, PT+4*
PSORX("REFILL" PROFILE+1*, PROFILE+3*
PSORX("RENEW" PROFILE+1*, PROFILE+3*
PSORX("VERIFY" INIT+3*
PSORXED PROV+13!
PSOSD EOJ+1!, PROFILE+2
PSOSD( PROFILE+3
PSOSTA EOJ+6!
>> PSOTPBFG START+1, START+2
PSOX OERR+17*, OERR+18, OERR+19*, OERR+20, OERR+21, PROV+13!, PTX+1!, PROFILE+1*, PROFILE+3*, PROFILE+4!
PSOX1 PTX+1!
PSOXFLG OERR!, OERR+14*, EOJ+3!
PSOXXDFN PROV+11*, PROV+13, PTX+1!, EOJ+6!
PT PROV+8*, EOJ+1!
PTDY EOJ+1!
PTRF EOJ+1!
PTST EOJ+3!
R3 EOJ+4!
REA EOJ+4!
RF EOJ+4!
RFD EOJ+4!
RFM EOJ+4!
RFN EOJ+6!
RLD EOJ+4!
RN EOJ+1!
RTN PROV+8*, EOJ+1!
RTS EOJ+4!
RX0 EOJ+4!
RX2 EOJ+4!
RX3 EOJ+4!
RXFL EOJ+6!
RXN EOJ+4!
RXNUM EOJ+4!
RXP EOJ+4!
RXPR EOJ+4!
RXREC START+7*, EOJ+1!
RXRP EOJ+4!
RXRS START+8, EOJ+4!
RXRS( START+5, START+6!
SERS EOJ+1!
SG EOJ+4!
SIG EOJ+4!
SIGOK PTX+1!
SLPPL START+5*, START+6, START+7, EOJ+1!
SPOERR EOJ+6!
SSN OERR+5*!, OERR+14*!
ST0 EOJ+1!
STAT EOJ+1!
STOP EOJ+1!
STP PTX+1!, EOJ+4!
STR PTX+1!, EOJ+4!
TM START+8!, START+10*, OERR+3*, OERR+8, PROV+6
TM1 START+8!, START+10*, OERR+3*
>> VAEL(1 ELIG+1
>> VAEL(3 ELIG+1
VALM EOJ+6!
VALMBCK EOJ+6!
VALMKEY EOJ+6!
VALMSG EOJ+4!
X OERR+9*, OERR+20*, PTX+1!, CHK+1, CHK+2, WRN, KV!
Y PT+4, OERR, OERR+9, OERR+17, OERR+25, OERR+29, OERR+30, PROV+4, PROV+5, PTX+1!
, CHK+2*, KV!
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 |  All