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

Package: Outpatient Pharmacy

Routine: PSORXED


Information

PSORXED ;IHS/DSD/JCM - edit rx utility ;Dec 03, 2020@10:39:54

Source Information

Source file <PSORXED.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 12 ($$ECME,$$RXRLDT,$$STATUS)^PSOBPSUT  (ACTLOG,RXED)^PSOCPA  ^PSOEXDT  $$TRIC^PSOREJP1  $$PTLBL^PSOREJP2  PRINT^PSOREJP3  $$ECMECHK^PSOREJU3  $$FIND^PSOREJUT  
(,DIE,EX)^PSORXED1  EN^PSORXPR  NEXT^PSOUTIL  CHK1^PSOUTLA  
VA FileMan 4 NOW^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
CMOP 1 ^PSXEDIT  

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 PSOOREDT  PSORXED1  

Entry Points

Name Comments DBIA/ICR reference
START ;this entry point is no longer used.
END
INIT
LKUP ; this line of code is no longer used S PSONUM="RX",PSONUM("A")="EDIT",PSOQFLG=0 D EN1^PSONUM I PSOQFLG!($Q(PSOLIST)']"") S PSORXED("QFLG")=1
PARSE
PROCESS
L1
PROCESSX
CHECK
CHECKX
LOG
LOG1 ;
LOGX
POST ; D NEXT D:$G(^PSRX(PSORXED("IRXN"),"IB"))]"" COPAY K PSODAYS,PSORXST
COPAY
RXST
COPAYX
CPCK ;update COPAY
CPCK1
NEXT
EOJ
FILL ;
FILLX
LBL ;
LBLCHK ;
ASKL ;
SETRP

External References

Name Field # of Occurrence
NOW^%DTC LOG+40
^DIE NEXT+1
$$GET1^DIQ LOG1+25
^DIR RXST+6, ASKL+3
$$ECME^PSOBPSUT LOG+5
$$RXRLDT^PSOBPSUT LOG+30, LOG+31, LOG1+21, LBLCHK+4, LBLCHK+17
$$STATUS^PSOBPSUT LBL+1
ACTLOG^PSOCPA RXST+16
RXED^PSOCPA CPCK1
^PSOEXDT LOG+33, LOG1+3
$$TRIC^PSOREJP1 LOG+6
$$PTLBL^PSOREJP2 LBLCHK+5, LBLCHK+19
PRINT^PSOREJP3 LBLCHK+5, LBLCHK+22
$$ECMECHK^PSOREJU3 LOG1+14
$$FIND^PSOREJUT LBL+4
^PSORXED1 LOGX
DIE^PSORXED1 PROCESS+18
EX^PSORXED1 EOJ+1
EN^PSORXPR PROCESS+14
NEXT^PSOUTIL NEXT
CHK1^PSOUTLA CHECK+4
^PSXEDIT PROCESS+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx Number is Locked by Another User!",!
  • Line Location: CHECK+0
Function Call: WRITE
  • Prompt: !,$C(7),"This drug has been inactivated. ",!
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Discontinued prescriptions cannot be edited.",!
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !!,$C(7),"Non-verified prescriptions cannot be edited.",!
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !,$C(7),"Patient Status field for this Rx has been changed from a ",$S(PSORXST=0:"COPAYMENT ELIGIBLE",PSORXST=1:"COPAYMENT EXEMPT",1:"")
  • Line Location: RXST+1
Function Call: WRITE
  • Prompt: !,"patient status."
  • Line Location: RXST+2
Function Call: WRITE
  • Prompt: " The copay status for this Rx will be automatically adjusted."
  • Line Location: RXST+3
Function Call: WRITE
  • Prompt: !,"If action needs to be taken to adjust charges you MUST use the"
  • Line Location: RXST+4
Function Call: WRITE
  • Prompt: !,"Reset Copay Status/Cancel Charges option."
  • Line Location: RXST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RXST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKL+1
Routine Call
  • DIE
  • Line Location:
    • NEXT+1
Routine Call
  • DIR
  • Line Location:
    • RXST+6
    • ASKL+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls
52.3 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PROCESS+17
^DD("DILOCKTM" CHECK
^DD(52 LOG+9, LOG+12, LOG+20, LOG+21, LOG+22, LOG+24, LOG+25, LOG+26, LOG+27, LOG+28
^PS(52.4 - [#52.4] CHECK+7
^PS(53 - [#53] PROCESS+11, RXST, RXST+7
^PS(55 - [#55] LOG1+5!*
^PS(59 - [#59] CPCK1
^PSDRUG - [#50] CHECK+1, LOG1+1*, LOG1+2*
^PSRX - [#52] PROCESS, PROCESS+2, PROCESS+3, PROCESS+5, PROCESS+6, PROCESS+8, PROCESS+10, CHECK, CHECK+6, LOG
, LOG+9, LOG+10, LOG+18, LOG+21, LOG+22, LOG+24, LOG+25, LOG+26, LOG+27, LOG+28
, LOG+33, LOG+35, LOG+36, LOG+40*, LOG1+1, LOG1+2, LOG1+3, LOG1+17, LOG1+24, LOG1+28
, COPAY, COPAY+1, RXST, RXST+7, RXST+8*, RXST+9*, CPCK+1, CPCK+2, CPCK+3, FILL+2
, FILL+4, FILL+5, LBL+5, SETRP
^PSRX("AG" LOG1+4!*
^VA(200 - [#200] PROCESS+10

Label References

Name Line Occurrences
ASKL LOG+32
CHECK PROCESS+15
CHECKX CHECK+1, CHECK+4, CHECK+6
COPAY POST+1
COPAYX RXST
CPCK COPAY, COPAY+1
CPCK1 CPCK+1, CPCK+2
EOJ END
FILL LOG+29
FILLX FILL+4
L1 PROCESS+17
LBL LOG+32
LBLCHK LOG+30, LOG+31
LOG L1
LOG1 LOG+30, LOG+32
LOGX LOG+30, LOG+31, LOG+32, LOG+33, LOG1+14, LOG1+17, LOG1+18, LOG1+21, LOG1+22, LOG1+26
, LOG1+28, LOG1+31
NEXT POST+1
POST L1
PROCESS PARSE
PROCESSX PROCESS, PROCESS+15
RXST COPAY
SETRP LOG1+17, LOG1+28, LOG1+32, LOG1+33

Naked Globals

Name Field # of Occurrence
^("I" CHECK+1
^("STA" CHECK+6
^(0 PROCESS+10, LOG+36*
^(2 PROCESS+2, LOG+33, LOG1+3
^(3 PROCESS+2
^(660.1 LOG1+1, LOG1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOG+40
>> COM LOG+9*, LOG+12*, LOG+20*, LOG+21*, LOG+22*, LOG+24*, LOG+25*, LOG+26*, LOG+27*, LOG+28*
, LOG+30, LOG+31, LOG+32, LOG+33, LOG+38, LBL+6, LBL+7, LBL+8
COMEDT LOG+38~*, LOG+40
D LOG1+5*, LOG1+6!
>> D1 LOG+35*, LOG+36*, LOG+40
DA PROCESS+12~, PROCESS+13*, LOG*, LOG+9, LOG+10, LOG+18, LOG+21, LOG+22, LOG+24, LOG+25
, LOG+26, LOG+27, LOG+28, LOG+33, LOG+35, LOG+36, LOG+40, LOG1+1, LOG1+2, LOG1+3
, LOG1+4, LOG1+5, LOG1+14, LOG1+21, LOG1+24, LOG1+25, COPAY*, COPAY+1, RXST, RXST+7
, RXST+8, RXST+9, RXST+10, COPAYX!, CPCK+1, CPCK+2, CPCK+3, CPCK1, NEXT!*, NEXT+1!
, FILL+2, FILL+4, FILL+5, LBL+14, LBL+15
DIE NEXT!*, NEXT+1!
DIR CHECKX!, RXST+6!, ASKL+1!, ASKL+3!
DIR("?" ASKL+1*, ASKL+2*
DIR("A" RXST+6*, ASKL+3*
DIR("B" ASKL+3*
DIR(0 RXST+6*, ASKL+3*
DR NEXT!, NEXT+1*!
DT CHECK+1
DTOUT CHECKX!
DUOUT CHECKX!
DUZ LOG+34, LOG+40
END EOJ!
>> I PROCESS+7*, PROCESS+8*, PROCESS+9, PROCESS+10, LOG+9*
>> J LOG+33*, LOG1+3*, LOG1+17, LOG1+28
>> K LOG+35*, LOG+36
NEXDT LOG1+3*, LOG1+4, LOG1+5, LOG1+6!
OEXDT LOG+33*, LOG1+3*, LOG1+4, LOG1+5, LOG1+6!
>> PREA RXST+15*
PSFROM LOG!
PSO COPAYX!, CPCK1*
>> PSOACT LOG1+23*, LOG1+24*, LOG1+25
PSOBPS LOG+4~, LOG+5*, LOG+30, LOG+31, LOG+32, LOG1+17, LOG1+18, LOG1+21, LOG1+22, LOG1+28
, LBLCHK+3
>> PSOCLC LOG+34
PSOCOMM RXST+12*, COPAYX!
PSODA RXST+10*, COPAYX!, CPCK1*
PSODAYS PROCESS+4*, PROCESS+10*, POST+1!, COPAY, COPAY+1, COPAYX!
>> PSODIV CHECK+4
PSOECMES LBL+1~*, LBL+3
PSOEDITF LOG+30, LOG+31, LOG1+14, LOG1+17, LOG1+21, LOG1+28, LOGX!, FILL+1!, FILL+3*, FILL+4
, LBL+1, LBL+4, LBL+6, LBL+9, LBL+10, LBL+11, LBL+12, LBL+13, LBLCHK+4, LBLCHK+5
, LBLCHK+17, LBLCHK+19, LBLCHK+22
PSOEDITL LOG+30, LOG+32, LOG1+17, LOG1+18, LOG1+28, LOGX!, LBL+1*, LBL+2, LBL+3*, LBL+4*
, LBL+5*, LBL+6*, LBL+7, LBL+9*, LBL+10*, LBL+11*, LBL+12*, LBL+13*, LBL+14*, LBL+15*
, LBL+16*, LBLCHK+14*, LBLCHK+21*, ASKL+3*, ASKL+4*, SETRP
PSOEDITR LOGX!, FILL+1!, FILL+4*, FILL+5*, LBL+6, LBL+10, LBL+11, LBL+12, LBL+13, LBL+15
PSOERF FILL+1!, FILL+2*, FILL+3, FILLX!
PSOEZ FILL+2*, FILLX!
PSOFILDAT LOG+14~, LOG+15*, LOG+20*, LOG1+14
PSOFLAG COPAYX!, CPCK1*
PSOFRPK LOGX+1!
PSOLIST EOJ!
PSOLIST( PARSE
>> PSONEW("PROVI DER NAME" , PROCESS+10*
PSONISDT LOG+11~*, LOG+12!, LOG+19~*, LOG+20
PSONW RXST+14*, COPAYX!
PSOOINS PROCESS+6*, LOG+25, EOJ!
PSOOLD RXST+13*, COPAYX!
>> PSOPAR7 CPCK1*
PSOPFS CPCK+3~*, CPCK+4!, CPCK+5!, CPCK+6*
>> PSOPIND LOG+26
>> PSOPINDF LOG+27
PSOPINS PROCESS+5*, LOG+24, EOJ!
PSOQFLG LKUP+1!
PSOREF RXST+11*, COPAYX!
>> PSORX("NOLABEL" LBLCHK+15*, LBLCHK+20*
>> PSORX("PSOL" LOG1+17*, LOG1+28*, LOG1+30, LOG1+31, LOG1+32*, LOG1+33*
>> PSORX("QFLG" LBLCHK+21
PSORXED NEXT, EOJ!
PSORXED("DFLG" PROCESS*, PROCESS+15, CHECK*, CHECK+2*, CHECK+4*, CHECK+6*, CHECK+7*
PSORXED("I" PARSE*
PSORXED("IRXN" PARSE*, PROCESS, PROCESS+2, PROCESS+3, PROCESS+5, PROCESS+6, PROCESS+8, PROCESS+10, PROCESS+13, CHECK
, CHECK+4, CHECK+6, CHECK+7, LOG, LOG+5, LOG+6, LOG+30, LOG+31, LOG1+17, LOG1+28
, LOG1+31, LOG1+32, LOG1+33, COPAY, NEXT, LBL+1, LBL+4, LBL+5, LBLCHK+4, LBLCHK+5
, LBLCHK+17, LBLCHK+19, LBLCHK+22, SETRP
PSORXED("LIST" PARSE*
PSORXED("QFLG" INIT*, PARSE
PSORXED("RX0" PROCESS+2*, PROCESS+4, PROCESS+11, CHECK+1, LOG
PSORXED("RX1" PROCESS+10*
PSORXED("RX2" PROCESS+2*, CHECK+4, LOG+18, LOG+19
PSORXED("RX3" PROCESS+2*, LOG+21, NEXT+1
PSORXST PROCESS+11*, POST+1!, RXST, RXST+1, COPAYX!
PSOSIG PROCESS+3*, LOG+22, EOJ!
>> PSOSITE CHECK+4, CPCK1
PSOTOPK LOG1+17, LOG1+26, LOG1+28, LOGX+1!, SETRP
PSOTRIC LOG+4~, LOG+6*, LOG+31, LOG+32, LOG1+17, LOG1+18, LOG1+28, LBL+2, LBL+7, LBL+10
>> PSOTRN LOG+28
>> PSOX1 LOG1+30*
>> PSOX2 LOG1+30*, LOG1+31, LOG1+32, LOG1+33
PSPOP CHECK+4!, CHECKX!
>> PSPRXN CHECK+4*
PSRX0 LOG*, LOG+9, LOG+10, LOG+11, LOG+34!, EOJ!
PSXOUT PROCESS+17!
>> PTLBL LOG1+22, LOG1+23*, LOG1+24, LOG1+25*
>> QTY LOG*, LOG1+1
RFD COPAY, COPAY+1, RXST+11, COPAYX!, CPCK+1, CPCK+2, CPCK+3, CPCK1
>> RFDT PROCESS+7*, PROCESS+10*
>> RFED PROCESS+7*, PROCESS+9*, LOGX
>> RX0 LOG*, LOG+33*, LOG1+2, LOG1+3*, LOG1+5
>> RX2 LOG+33*, LOG1+3*
>> RXFL( LOG1+17*, LOG1+28*
>> RXRP( LBL+14, LBL+15, SETRP*
TYPE CPCK1~*!
>> VALMSG SETRP*
X PROCESS+16~, PROCESS+17*!, CHECKX!, LOG+34*, NEXT+1!
Y CHECKX!, NEXT+1!, ASKL+3
>> Z LOG+35*
>> ZD( LOG!*
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