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

Package: Outpatient Pharmacy

Routine: PSOORED2


Information

PSOORED2 ;ISC-BHAM/SAB-edit orders from backdoor con't ;29-May-2012 14:56;PLS

Source Information

Source file <PSOORED2.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Outpatient Pharmacy 11 (ECMESND,REVERSE)^PSOBPSU1  RXACT^PSOBPSU2  ($$RXSITE,$$STATUS,$$SUBMIT)^PSOBPSUT  (EDTDAW,SAVDAW)^PSODAWUT  NDC^PSODRG  EN^PSOFSIG  ($$GETNDC,SAVNDC)^PSONDCUT  ^PSOORED3  
DOSE^PSOORED5  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  
VA Fileman 4 ^%DT  ^DIE  GETS^DIQ  ^DIR  
Uncategorized 2 $$DIVNCPDP^BPSBUTL  $$ECMEON^BPSUTIL  
Registration 1 PAUSE^VALM1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOORED7  PSOOREDT  

Entry Points

Name Comments DBIA/ICR reference
RFX
ISDT
CHANGED(RX,RFL,PRIOR) ; - Check if fields have changed and should for 3rd Party Claim resubmission
EDTDOSE ;edit med instructions fields
DIE
FLDT
CHK
CHK1
UPD1
UPD2
DAT
KV
RFE
RFD ;check for deleted refill
SRF
REF ;shows refill info
UPD ;updates dosing array
RFM

External References

Name Field # of Occurrence
^%DT ISDT+1
$$DIVNCPDP^BPSBUTL CHANGED+8
$$ECMEON^BPSUTIL RFE+12
^DIE RFX+5, RFX+9, DIE
GETS^DIQ RFX+2, CHANGED+6
^DIR FLDT+4, REF+4, SRF+10
ECMESND^PSOBPSU1 RFE+17
REVERSE^PSOBPSU1 RFX+6, RFE+13
RXACT^PSOBPSU2 RFE+7
$$RXSITE^PSOBPSUT RFE+12
$$STATUS^PSOBPSUT RFX+4, RFE+1, RFE+16
$$SUBMIT^PSOBPSUT RFE+14
EDTDAW^PSODAWUT RFE+3
SAVDAW^PSODAWUT RFE+4
NDC^PSODRG RFE+5
EN^PSOFSIG UPD1+17, UPD2+18
$$GETNDC^PSONDCUT RFE+2, RFE+6, RFE+7, RFE+17
SAVNDC^PSONDCUT RFE+8
^PSOORED3 EDTDOSE+2
DOSE^PSOORED5 EDTDOSE+1
$$HDLG^PSOREJU1 RFE+19
$$FIND^PSOREJUT RFE+19
PAUSE^VALM1 ISDT, FLDT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Released by CMOP. No editing allowed on Issue Date."
  • Line Location: ISDT+0
Function Call: WRITE
  • Prompt: !,"Released by CMOP. No editing allowed on Fill Date."
  • Line Location: FLDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REF+3
Function Call: WRITE
  • Prompt: !!,"# Log Date Refill Date Qty Routing Lot # Pharmacist",!
  • Line Location: SRF+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: SRF+0
Function Call: WRITE
  • Prompt: !,"Division: "_PSDIV_$E(" ",$L(PSDIV)+1,8)_" "
  • Line Location: SRF+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SRF+10
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid selection.",!
  • Line Location: RFM+0
Routine Call
  • DIE
  • Line Location:
    • RFX+5
    • RFX+9
    • DIE
Routine Call
  • DIR
  • Line Location:
    • FLDT+4
    • REF+4
    • SRF+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
52.1 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ISDT+1, FLDT+1
^PS(52.5 - [#52.5] CHK1+1
^PS(59 - [#59] SRF+5
^PSRX - [#52] ISDT+1, FLDT+1, CHK+1, CHK1, CHK1+3, REF+1, SRF+1, RFM, RFM+1, RFM+2
, RFX+3, RFE, EDTDOSE+1
^PSRX("AR" CHK, CHK+1, RFM+1
^VA(200 - [#200] SRF+4

Label References

Name Line Occurrences
CHK ISDT, FLDT
DAT SRF+2
ISDT ISDT+2
KV ISDT+4, FLDT+1, FLDT+5, REF+3, REF+4, SRF+10
RFD RFX+6
RFE RFX+4
RFM SRF+9
RFX RFM+1
SRF RFM
UPD1 UPD1+1, UPD2+1

Naked Globals

Name Field # of Occurrence
^( SRF+1
^(0 CHK1+1, CHK1+3, SRF+4, SRF+5, RFM+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ISDT+1*!, ISDT+4!
%DT("A" ISDT+1*
%DT("B" ISDT+1*
%DT(0 ISDT+1*
CHANGED RFX~, RFE+10*, RFE+11, RFE+12, RFE+16, RFE+17, CHANGED+5~, CHANGED+6*, CHANGED+7*, CHANGED+8*
, CHANGED+9
CHGNDC RFX~, RFE+7*, RFE+17
CMRL ISDT!, FLDT!, CHK*, CHK+1*, CHK1, CHK1+1*, CHK1+2*, CHK1+3*, RFM+1*, RFM+2*
, RFX+1, RFX+6!, RFX+9, RFE+20!
DA ISDT+1, FLDT+1, REF+3!, RFX+1*, RFX+2, RFX+3, RFX+6, RFE+20!
DA(1 SRF+9*, RFX+1, RFX+2, RFX+3
>> DAT SRF+2, SRF+3, DAT*
DAW RFX~, RFE+3, RFE+4
>> DI RFX+6
DIE RFX+1*, RFE+20!, DIE*, DIE+1!
DIR KV!
DIR("?" FLDT+3*, FLDT+4*
DIR("A" FLDT+1*, REF+3*, SRF+10*
DIR("B" FLDT+1*, REF+3*
DIR(0 FLDT+2*, REF+3*, SRF+10*
DIRUT FLDT+5, KV!, SRF+10
DR REF+3!, RFX+1*, RFX+5!, RFX+9*, RFE+20!, DIE+1!
DTOUT ISDT+1!, KV!
>> DTT SRF+2*, DAT*
DUOUT ISDT+1!, KV!
>> ENT UPD+1
FEV CHK1+3*, RFM+2*, RFX+5!
FLDS RFX~
HENT UPD+1*, UPD1, UPD1+1, UPD1+2, UPD1+3, UPD1+4, UPD1+5, UPD1+6, UPD1+7, UPD1+8
, UPD1+9, UPD1+10, UPD1+11, UPD1+12, UPD1+13*, UPD1+14, UPD1+15, UPD1+16, UPD1+17!, UPD2
, UPD2+1, UPD2+2, UPD2+3, UPD2+4, UPD2+5, UPD2+6, UPD2+7, UPD2+8, UPD2+9, UPD2+10
, UPD2+11, UPD2+12, UPD2+13*, UPD2+14, UPD2+15, UPD2+16, UPD2+18!
I SRF*, CHANGED+7*, RFD+1~*, RFD+2*, RFD+6, UPD2+17*
J RFD+1~, RFD+3*
K RFD+1~*, RFD+2, RFD+4*, RFD+6
>> LOG SRF+2*, SRF+3
>> N REF+1*, SRF+1*, SRF+3
NDC RFX~, RFE+2*, RFE+5, RFE+6, RFE+7, RFE+8
>> P1 SRF+1*, SRF+2, SRF+3, SRF+4, SRF+5, SRF+6, SRF+7, SRF+8
PRIOR CHANGED~
PRIOR( CHANGED+7, CHANGED+8
>> PSDIV SRF+5*
>> PSORX("PSOL" RFX+6, RFD+1, RFD+6*!
>> PSORXED UPD1+17, UPD2+18
>> PSORXED("CONJUNCTION" UPD1!, UPD1+1*, UPD1+2!, UPD1+9*, UPD1+14, UPD1+15!, UPD2!, UPD2+1*, UPD2+2!, UPD2+9*
, UPD2+14
>> PSORXED("DFLG" DIE*
>> PSORXED("DOSE ORDERED" , UPD1+5*, UPD1+15!, UPD2+4*, UPD2+15!
>> PSORXED("DOSE" UPD1, UPD1+3, UPD1+4*, UPD1+15!, UPD2, UPD2+2, UPD2+3*, UPD2+15!, UPD2+17
>> PSORXED("DURATION" UPD1+8*, UPD1+15!, UPD2+8*, UPD2+15!
>> PSORXED("ENT" UPD1+17*, UPD2+18*
>> PSORXED("FLD" ISDT+2*, FLDT+5!, FLDT+6*
>> PSORXED("IRXN" CHK, CHK+1, CHK1, CHK1+1, CHK1+3, REF+1, SRF+1, SRF+9, RFM, RFM+1
, RFM+2, RFX+4, RFX+6, RFE, RFE+1, RFE+2, RFE+3, RFE+4, RFE+5, RFE+6
, RFE+7, RFE+8, RFE+12, RFE+13, RFE+14, RFE+15, RFD+2, RFD+4, EDTDOSE+1
>> PSORXED("NOUN" UPD1+7*, UPD1+15!, UPD2+6*, UPD2+15!
>> PSORXED("ODOSE" UPD1+12*, UPD1+16!, UPD2+12*, UPD2+16!
>> PSORXED("ROUTE" UPD1+10*, UPD1+15!, UPD2+10*, UPD2+15!
>> PSORXED("RX1" RFX+3*
>> PSORXED("RX2" FLDT+2, CHK
>> PSORXED("SCHEDULE" UPD1+11*, UPD1+15!, UPD2+11*, UPD2+15!
>> PSORXED("UNITS" UPD1+6*, UPD1+15!, UPD2+5*, UPD2+15!
>> PSORXED("VERB" UPD1+16!, UPD2+7*, UPD2+15!
PSOX2 RFD+1~, RFD+2*, RFD+3
PSOX3 RFD+1~, RFD+3*, RFD+4, RFD+5
PSOX9 RFD+1~, RFD+2*, RFD+5*, RFD+6
>> PSOZ1("PSOL" RFD+1*, RFD+2, RFD+7!
QUIT RFX~, RFX+4*, RFX+5*, RFX+9*, RFE+1
RF ISDT!, FLDT!, CHK+1*
RFED RFX+3*, RFX+6!
RFL RFX~, RFX+3*, RFX+4, RFX+6, RFE, RFE+1, RFE+2, RFE+3, RFE+4, RFE+5
, RFE+6, RFE+7, RFE+8, RFE+12, RFE+13, RFE+14, RFE+16, RFE+17, RFE+19, CHANGED~
, CHANGED+6, CHANGED+7, CHANGED+8
RFM REF+1*, SRF+9, SRF+10, RFX+5!
RFN REF+1*, REF+3, SRF+9, RFX+5!
>> RN SRF+2*, SRF+3
>> RTS SRF+7*, SRF+8
RX RFE+15~*, RFE+16, RFE+17, RFE+19, CHANGED~, CHANGED+6, CHANGED+7, CHANGED+8
>> RX0 ISDT+1, FLDT+2
SAVED CHANGED+5~
SAVED( CHANGED+7, CHANGED+8
SENT UPD1+17!, UPD2+17*, UPD2+18!
>> ST RFX+4
>> SURX CHK1+1*
X ISDT+1!, ISDT+4!, FLDT+5!, FLDT+7!, RFX+5!, RFE+19*, DIE+1!
Y ISDT+1*!, ISDT+2, ISDT+4!, FLDT+1*, FLDT+5!, FLDT+6, FLDT+7!, REF+4, SRF+9*, RFM
, RFM+1, RFM+2, RFX+1, RFX+5!, RFX+9, DIE, DIE+1!
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