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 ;8/18/10 3:16pm

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

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

Package Total Caller Graph
Outpatient Pharmacy 2 PSOOREDT  PSORXED1  

Entry Points

Name Comments DBIA/ICR reference
LOG
EOJ
L1
CPCK1
RXST
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
FILL ;
LBLCHK ;
LOG1 ;
NEXT
INIT
ASKL ;
COPAYX
CHECK
SETRP
END
COPAY
FILLX
LOGX
START ;this entry point is no longer used.
CPCK ;update COPAY
POST ; D NEXT D:$G(^PSRX(PSORXED("IRXN"),"IB"))]"" COPAY K PSODAYS,PSORXST
PROCESSX
PROCESS
LBL ;
PARSE
CHECKX

External References

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

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+21
^DD("DILOCKTM" CHECK
^DD(52 LOG+8, LOG+13, LOG+14, LOG+15, LOG+17, LOG+18, LOG+19
^PS(52.4 - [#52.4] CHECK+7
^PS(53 - [#53] PROCESS+15, 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+5, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+12, CHECK, CHECK+6, LOG
, LOG+8, LOG+13, LOG+14, LOG+15, LOG+17, LOG+18, LOG+19, LOG+25, LOG+26, LOG+29*
, LOG1+1, LOG1+2, LOG1+3, LOG1+16, LOG1+23, LOG1+26, 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+14

Label References

Name Line Occurrences
ASKL LOG+23
CHECK PROCESS+19
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+20
FILLX FILL+4
L1 PROCESS+21
LBL LOG+23
LBLCHK LOG+21, LOG+22
LOG L1
LOG1 LOG+21, LOG+23
LOGX LOG+21, LOG+22, LOG+23, LOG+24, LOG1+13, LOG1+16, LOG1+17, LOG1+20, LOG1+21, LOG1+26
, LOG1+29
NEXT POST+1
POST L1
PROCESS PARSE
PROCESSX PROCESS, PROCESS+19
RXST COPAY
SETRP LOG1+16, LOG1+26, LOG1+30, LOG1+31

Naked Globals

Name Field # of Occurrence
^("I" CHECK+1
^("STA" CHECK+6
^(0 PROCESS+13, PROCESS+14, LOG+26*
^(2 PROCESS+3, LOG1+3
^(3 PROCESS+4
^(660.1 LOG1+1, LOG1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOG+29
>> COM LOG+8*, LOG+13*, LOG+14*, LOG+15*, LOG+17*, LOG+18*, LOG+19*, LOG+21, LOG+22, LOG+23
, LOG+24, LOG+29, LBL+6, LBL+7, LBL+8
D LOG1+5*, LOG1+6!
>> D1 LOG+25*, LOG+26*, LOG+29
DA PROCESS+16~, PROCESS+17*, LOG*, LOG+8, LOG+13, LOG+14, LOG+15, LOG+17, LOG+18, LOG+19
, LOG+25, LOG+26, LOG+29, LOG1+1, LOG1+2, LOG1+3, LOG1+4, LOG1+5, LOG1+13, LOG1+20
, LOG1+23, LOG1+24, 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+24, LOG+29
END EOJ!
>> I PROCESS+9*, PROCESS+10*, PROCESS+11, PROCESS+12, LOG+8*
>> J LOG1+3*, LOG1+16, LOG1+26
>> K LOG+25*, LOG+26
NEXDT LOG1+3*, LOG1+4, LOG1+5, LOG1+6!
OEXDT LOG1+3*, LOG1+4, LOG1+5, LOG1+6!
>> PREA RXST+15*
PSFROM LOG!
>> PSI LOG+8*
PSO COPAYX!, CPCK1*
>> PSOACT LOG1+22*, LOG1+23*, LOG1+24
PSOBPS LOG+4~, LOG+5*, LOG+21, LOG+22, LOG+23, LOG1+16, LOG1+17, LOG1+20, LOG1+21, LOG1+26
, LBLCHK+3
>> PSOCLC LOG+24
PSOCOMM RXST+12*, COPAYX!
PSODA RXST+10*, COPAYX!, CPCK1*
PSODAYS PROCESS+6*, PROCESS+14*, POST+1!, COPAY, COPAY+1, COPAYX!
>> PSODIV CHECK+4
PSOECMES LBL+1~*, LBL+3
PSOEDITF LOG+21, LOG+22, LOG1+13, LOG1+16, LOG1+20, LOG1+26, 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+21, LOG+23, LOG1+16, LOG1+17, 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+10~, LOG+11*, LOG+13*, LOG1+13
PSOFLAG COPAYX!, CPCK1*
PSOLIST EOJ!
PSOLIST( PARSE
>> PSONEW("PROVI DER NAME" , PROCESS+14*
PSONW RXST+14*, COPAYX!
PSOOINS PROCESS+8*, LOG+18, EOJ!
PSOOLD RXST+13*, COPAYX!
>> PSOPAR7 CPCK1*
PSOPFS CPCK+3~*, CPCK+4!, CPCK+5!, CPCK+6*
PSOPINS PROCESS+7*, LOG+17, EOJ!
PSOQFLG LKUP+1!
PSOREF RXST+11*, COPAYX!
>> PSORX("NOLABEL" LBLCHK+15*, LBLCHK+20*
>> PSORX("PSOL" LOG1+16*, LOG1+26*, LOG1+28, LOG1+29, LOG1+30*, LOG1+31*
>> PSORX("QFLG" LBLCHK+21
PSORXED NEXT, EOJ!
PSORXED("DFLG" PROCESS*, PROCESS+19, CHECK*, CHECK+2*, CHECK+4*, CHECK+6*, CHECK+7*
PSORXED("I" PARSE*
PSORXED("IRXN" PARSE*, PROCESS, PROCESS+2, PROCESS+5, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+12, PROCESS+17, CHECK
, CHECK+4, CHECK+6, CHECK+7, LOG, LOG+5, LOG+6, LOG+21, LOG+22, LOG1+16, LOG1+26
, LOG1+29, LOG1+30, LOG1+31, 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+6, PROCESS+15, CHECK+1, LOG
PSORXED("RX1" PROCESS+12*
PSORXED("RX2" PROCESS+3*, CHECK+4, LOG+13
PSORXED("RX3" PROCESS+4*, LOG+14, NEXT+1
PSORXST PROCESS+15*, POST+1!, RXST, RXST+1, COPAYX!
PSOSIG PROCESS+5*, LOG+15, EOJ!
>> PSOSITE CHECK+4, CPCK1
PSOTRIC LOG+4~, LOG+6*, LOG+22, LOG+23, LOG1+16, LOG1+17, LBL+2, LBL+7, LBL+10
>> PSOTRN LOG+19
>> PSOX1 LOG1+28*
>> PSOX2 LOG1+28*, LOG1+29, LOG1+30, LOG1+31
PSPOP CHECK+4!, CHECKX!
>> PSPRXN CHECK+4*
PSRX0 LOG*, LOG+8, LOG+24!, EOJ!
PSXOUT PROCESS+21!
>> PTLBL LOG1+21, LOG1+22*, LOG1+23, LOG1+24*
>> QTY LOG*, LOG1+1
RFD COPAY, COPAY+1, RXST+11, COPAYX!, CPCK+1, CPCK+2, CPCK+3, CPCK1
>> RFDT PROCESS+9*, PROCESS+13*
>> RFED PROCESS+9*, PROCESS+11*, LOGX
>> RX0 LOG*, LOG1+2, LOG1+3*, LOG1+5
>> RX2 LOG1+3*
>> RXFL( LOG1+16*, LOG1+26*
>> RXRP( LBL+14, LBL+15, SETRP*
TYPE CPCK1~*!
>> VALMSG SETRP*
X PROCESS+20~, PROCESS+21*!, CHECKX!, LOG+24*, NEXT+1!
Y CHECKX!, NEXT+1!, ASKL+3
>> Z LOG+25*
>> 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