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 ;29-May-2012 15:11;PLS

Source Information

Source file <PSORXED.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Outpatient Pharmacy 11 ($$RXRLDT,$$STATUS)^PSOBPSUT  (ACTLOG,RXED)^PSOCPA  ^PSOEXDT  $$TRIC^PSOREJP1  $$PTLBL^PSOREJP2  PRINT^PSOREJP3  $$FIND^PSOREJUT  (,DIE,EX)^PSORXED1  
EN^PSORXPR  NEXT^PSOUTIL  CHK1^PSOUTLA  
VA Fileman 3 ^DIE  $$GET1^DIQ  ^DIR  
IHS Changes To Pharmacy 2 CALLPOS^APSPFUNC  $$TEST^APSQBRES  
CMOP 1 ^PSXEDIT  
Pharmacy Point of Sale 1 $$IEN59^ABSPOSRX  

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
POS(RIEN) ; EP
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
$$IEN59^ABSPOSRX POS+6
CALLPOS^APSPFUNC POS+25
$$TEST^APSQBRES POS+2
^DIE NEXT+1
$$GET1^DIQ POS+8
^DIR POS+13, POS+19, RXST+6, ASKL+3
$$RXRLDT^PSOBPSUT LOG+13, LBLCHK+1
$$STATUS^PSOBPSUT LBL+1
ACTLOG^PSOCPA RXST+16
RXED^PSOCPA CPCK1
^PSOEXDT LOG1+3
$$TRIC^PSOREJP1 LOG+1
$$PTLBL^PSOREJP2 LBLCHK+2
PRINT^PSOREJP3 LBLCHK+2
$$FIND^PSOREJUT LBL+4
^PSORXED1 LOGX
DIE^PSORXED1 PROCESS+13
EX^PSORXED1 EOJ+6
EN^PSORXPR PROCESS+10
NEXT^PSOUTIL NEXT
CHK1^PSOUTLA CHECK+3
^PSXEDIT PROCESS+12

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+5
Function Call: WRITE
  • Prompt: !!,$C(7),"Non-verified prescriptions cannot be edited.",!
  • Line Location: CHECK+6
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:
    • POS+13
    • POS+19
    • RXST+6
    • ASKL+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PROCESS+12
^ABSPTL("B" POS+7
^DD("DILOCKTM" CHECK
^DD(52 LOG+2, LOG+3, LOG+5, LOG+6, LOG+7, LOG+10, LOG+11
^PS(52.4 - [#52.4] CHECK+6
^PS(53 - [#53] PROCESS+10, RXST, RXST+7
^PS(55 - [#55] LOG1+5!*
^PS(59 - [#59] CPCK1
^PSDRUG - [#50] CHECK+1, LOG1+1*, LOG1+2*
^PSRX - [#52] PROCESS, PROCESS+1, PROCESS+5, PROCESS+6, CHECK, CHECK+5, LOG, LOG+2, LOG+3, LOG+5
, LOG+6, LOG+7, LOG+10, LOG+11, LOG+17, LOG+18, LOG+19, LOG+20*, LOG1+1, LOG1+2
, LOG1+3, LOG1+7, POS+24, 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!*
^TMP("APSPPOS" POS+2, POS+26!
^VA(200 - [#200] PROCESS+9

Label References

Name Line Occurrences
$$POS LOG+16
ASKL LOG+14, LOG+17
CHECK PROCESS+11
CHECKX CHECK+1, CHECK+3, CHECK+5
COPAY POST+1
COPAYX RXST
CPCK COPAY, COPAY+1
CPCK1 CPCK+1, CPCK+2
EOJ END
FILL LOG+12
FILLX FILL+4
L1 PROCESS+12
LBL LOG+14, LOG+17
LBLCHK LOG+13
LOG L1
LOG1 LOG+14
LOGX LOG+13, LOG+14, LOG+15, LOG1+7, LOG1+8, LOG1+10
NEXT POST+1
POST L1
PROCESS PARSE
PROCESSX PROCESS, PROCESS+11
RXST COPAY
SETRP LOG1+7, LOG1+11, LOG1+12

Naked Globals

Name Field # of Occurrence
^("I" CHECK+1
^("STA" CHECK+5
^(0 PROCESS+8, PROCESS+9, LOG+19*
^(2 PROCESS+1, LOG1+3
^(3 PROCESS+1
^(660.1 LOG1+1, LOG1+2
^(9999999 PROCESS+2, PROCESS+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ANS POS+1*, POS+5*, POS+22*, POS+27
APSARNDC EOJ+4!
APSAZIEN EOJ+4!
APSAZNDC EOJ+4!
APSP EOJ+2!
APSP1 EOJ+2!
APSP2 EOJ+2!
APSP91 EOJ+2!
APSPDZ EOJ+2!
APSPL EOJ+2!
APSPLTYP EOJ+2!
APSPM0 EOJ+2!
APSPMM EOJ+2!
APSPPDY EOJ+2!
APSPPLOT EOJ+2!
APSPPMF EOJ+2!
APSPRXX EOJ+2!
APSQCOM LOG+8!
APSQIT POS+3~, POS+4*, POS+14*, POS+20*, POS+21
APSQPOS POS+3~, POS+6*, POS+7
APSQPOST POS+3~, POS+7*, POS+8
APSQPST POS+23~
APSREFD EOJ+3!
APSREFF EOJ+3!
>> COM LOG+2*, LOG+3*, LOG+5*, LOG+6*, LOG+7*, LOG+8*, LOG+10*, LOG+11*, LOG+13, LOG+14
, LOG+15, LOG+16*, LOG+20, LBL+6, LBL+7, LBL+8
D LOG1+5*, LOG1+6!
>> D1 LOG+18*, LOG+19*, LOG+20
DA PROCESS+10~*, LOG*, LOG+2, LOG+3, LOG+5, LOG+6, LOG+7, LOG+10, LOG+11, LOG+16
, LOG+17, LOG+18, LOG+19, LOG+20, LOG1+1, LOG1+2, LOG1+3, LOG1+4, LOG1+5, 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" POS+9*, POS+10*, POS+16*, RXST+6*, ASKL+3*
DIR("B" POS+11*, POS+17*, ASKL+3*
DIR(0 POS+12*, POS+18*, RXST+6*, ASKL+3*
DR NEXT!, NEXT+1*!
DT CHECK+1, LOG+20
DTOUT CHECKX!
DUOUT CHECKX!
DUZ LOG+15, LOG+20
END EOJ!
>> I PROCESS+5*, PROCESS+6, LOG+2*
>> J LOG1+3*, LOG1+7
>> K LOG+18*, LOG+19
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+2*
PSO COPAYX!, CPCK1*
PSOBRIEN EOJ+5!
PSOBXIEN EOJ+5!
>> PSOCLC LOG+15
PSOCOMM RXST+12*, COPAYX!
PSODA RXST+10*, COPAYX!, CPCK1*
PSODAYS PROCESS+1*, PROCESS+8*, POST+1!, COPAY, COPAY+1, COPAYX!
>> PSODIV CHECK+3
PSOECMES LBL+1~*, LBL+3
PSOEDITF LOG+13, LOG1+7, LOGX!, FILL+1!, FILL+3*, FILL+4, LBL+1, LBL+4, LBL+6, LBL+9
, LBL+10, LBL+11, LBL+12, LBL+13, LBLCHK+1, LBLCHK+2
PSOEDITL LOG+14, LOG+17, LOG1+7, LOG1+8, 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*
, 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!
PSOFLAG COPAYX!, CPCK1*
PSOLIST EOJ!
PSOLIST( PARSE
>> PSONEW("PROVI DER NAME" , PROCESS+9*
PSONW RXST+14*, COPAYX!
PSOOLD RXST+13*, COPAYX!
>> PSOPAR7 CPCK1*
PSOPFS CPCK+3~*, CPCK+4!, CPCK+5!, CPCK+6*
PSOQFLG LKUP+1!
PSOREF RXST+11*, COPAYX!, EOJ+2!
>> PSORX("PSOL" LOG1+7*, LOG1+9, LOG1+10, LOG1+11*, LOG1+12*
PSORXED NEXT, EOJ!
PSORXED("DFLG" PROCESS*, PROCESS+11, CHECK*, CHECK+2*, CHECK+3*, CHECK+5*, CHECK+6*
PSORXED("I" PARSE*
PSORXED("IRXN" PARSE*, PROCESS, PROCESS+1, PROCESS+5, PROCESS+6, PROCESS+10, CHECK, CHECK+3, CHECK+5, CHECK+6
, LOG, LOG+1, LOG+13, LOG1+7, LOG1+10, LOG1+11, LOG1+12, COPAY, NEXT, LBL+1
, LBL+4, LBL+5, LBLCHK+1, LBLCHK+2, SETRP
PSORXED("LIST" PARSE*
PSORXED("QFLG" INIT*, PARSE
PSORXED("RX0" PROCESS+1*, PROCESS+10, CHECK+1, LOG
PSORXED("RX1" PROCESS+6*
PSORXED("RX19999999" PROCESS+7*
PSORXED("RX2" PROCESS+1*, CHECK+3, LOG+3, LOG+5
PSORXED("RX3" PROCESS+1*, LOG+6, NEXT+1
PSORXED("RX9999999" PROCESS+2*, LOG+7
PSORXST PROCESS+10*, POST+1!, RXST, RXST+1, COPAYX!
PSOSIG PROCESS+1*, LOG+10, EOJ!
>> PSOSIGFL LOG+17
>> PSOSITE CHECK+3, CPCK1
PSOTRIC LOG+1~*, LOG+13, LOG+14, LOG1+7, LOG1+8, LBL+2, LBL+7, LBL+10, ASKL+3
>> PSOTRN LOG+11
>> PSOX1 LOG1+9*
>> PSOX2 LOG1+9*, LOG1+10, LOG1+11, LOG1+12
PSPOP CHECK+3!, CHECKX!
>> PSPRXN CHECK+3*
PSRX0 LOG*, LOG+2, LOG+15!, EOJ!
PSXOUT PROCESS+12!
>> QTY LOG*, LOG1+1
RFD COPAY, COPAY+1, RXST+11, COPAYX!, CPCK+1, CPCK+2, CPCK+3, CPCK1
>> RFDT PROCESS+5*, PROCESS+8*
>> RFED PROCESS+5*, PROCESS+6*, LOGX
RFIEN POS+6, POS+23~, POS+24*, POS+25
RIEN POS~, POS+2, POS+6, POS+24, POS+25, POS+26
>> RX0 LOG*, LOG1+2, LOG1+3*, LOG1+5
>> RX2 LOG1+3*
>> RXFL( LOG1+7*
>> RXRP( LOG+17, LBL+14, LBL+15, SETRP*
TYPE CPCK1~*!
>> VALMSG SETRP*
X PROCESS+12~*!, CHECKX!, LOG+15*, NEXT+1!
Y CHECKX!, POS+14, POS+20, NEXT+1!, ASKL+3
>> Z LOG+18*
>> 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