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

Package: Outpatient Pharmacy

Routine: PSOUTL


Information

PSOUTL ;BHAM ISC/SAB - pso utility routine ;29-May-2012 15:16;PLS

Source Information

Source file <PSOUTL.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 6 ^%DT  NOW^%DTC  EN^DDIOL  ^DIE  ^DIK  ^DIR  
Outpatient Pharmacy 3 REF^PSOCAN2  (KCMPX,SCMPX)^PSOCMOP  ($$REFIP,WARN1)^PSOUTLA1  
IHS Changes To Pharmacy 1 $$ISSCH^APSPFNC2  
Integrated Billing 1 $$SERV^IBARX1  

Caller Graph

Caller Graph Total: 24

Package Total Caller Graph
Outpatient Pharmacy 23 ^PSRX  PARTIAL DATE  PSOBUILD  PSOCAN  PSOCAN2  PSOCSRL  PSODISP  PSODISP3  
PSODISPS  PSODRDUP  PSOHLNE1  PSOHLNEW  PSOHLUP  PSOHLUP1  PSOORDRG  PSOORUT1  
PSOORUTL  PSOPOST  PSOVERC  PSOXZA11  PSOXZA4  REFILL  ^PS(59  
IHS Changes To Pharmacy 1 APSPRIS  

Entry Points

Name Comments DBIA/ICR reference
CID ;calculates six months limit on issue dates
K52
SREF
KILL
S52
SUSPCAN ;dcl rx from suspense used in new, renew AND verification of Rxs
CMOP ;CMOP("L")=LAST FILL... if it is orig Rx =0
IBSS
SPR
ACTOUT
ORIG
CMOP1
CIDH ;IHS/MSC/PLS - 03/28/11 - Next 3 lines
KPR
IBSSR
WARN1 ;move to PSOUTLA1
WARN ;
ENDVCHK
KREF
ECAN(PSOXRX) ;Clean up Rx when expired
ACTLOG ;
CIDADJ() ;EP - p1011
CHK1
QUES ;INSTRUCTIONS FOR RENEW AND REFILL
CAN(PSOXRX) ;Clean up Rx when discontinued
EX

External References

Name Field # of Occurrence
^%DT CID+5, CIDH+3
NOW^%DTC KILL+16
$$ISSCH^APSPFNC2 CIDADJ+4
EN^DDIOL CIDH+3, IBSS+7, WARN+2, WARN+4, WARN+5, WARN+11, WARN+15, WARN+16, WARN+20, WARN+21
, WARN+22
^DIE IBSSR
^DIK CAN+3, CAN+4, ECAN+3, ECAN+4
^DIR WARN+28
$$SERV^IBARX1 IBSSR
REF^PSOCAN2 CAN+3
KCMPX^PSOCMOP K52+4, KILL+11, KILL+12
SCMPX^PSOCMOP S52+4
$$REFIP^PSOUTLA1 WARN+19
WARN1^PSOUTLA1 WARN1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Enter the item #(s) or RX #(s) you wish to ",$S(PSFROM="N":"renew ",PSFROM="R":"REFILL "),"separated by commas."
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !?5,"For example: 1,2,5 or 123456,33254A,232323B."
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !?5,"Do not enter the same number twice, duplicates are not allowed."
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: !?10,$C(7),"RX# ",$P(^PSRX(PSRX,0),"^")," is not a valid choice. (Different Division)"
  • Line Location: CHK1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: CHK1+1
Function Call: WRITE
  • Prompt: !?10,$C(7),"RX# ",$P(^PSRX(PSRX,0),"^")," is from another division. Continue? (Y/N) "
  • Line Location: CHK1+1
Function Call: WRITE
  • Prompt: !?10,$C(7),"Answer 'YES' or 'NO'."
  • Line Location: CHK1+2
Routine Call
  • DIE
  • Line Location:
    • IBSSR
Routine Call
  • DIR
  • Line Location:
    • WARN+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.4 - [#52.4] Classic Fileman Calls
^PS(52.5 - [#52.5] Classic Fileman Calls
^PS(59 - [#59] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CIDH+3
^DIC(49 - [#49] IBSSR
^DPT - [#2] KILL+2
^PS(52.4 - [#52.4] CAN+4, ECAN+4
^PS(52.5 - [#52.5] K52, K52+1, K52+2, K52+3!, K52+4!, K52+5!, S52+1, S52+2, S52+3*, S52+4*
, S52+5*, KILL+2, KILL+4!, KILL+5, KILL+6!, KILL+7!, KILL+8, KILL+10, KILL+11!, KILL+12!
, KILL+13!, KILL+14!, CAN+3, ECAN+3, CMOP1+4
^PS(55 - [#55] ACTOUT*, ACTOUT+2, ACTOUT+3*
^PSRX - [#52] SUSPCAN+1, SUSPCAN+2!, SUSPCAN+3*, ACTLOG+1*, ACTOUT, ACTOUT+1, ACTOUT+3, ENDVCHK, CHK1, CHK1+1
, K52+1, S52, S52+1, KILL+2*, KILL+15, KILL+17*, KILL+18*, KILL+20*, SPR, SPR+1*
, SREF, SREF+1*, SREF+2*, KPR, KPR+2*, KREF+1*, KREF+2, ORIG*, ORIG+1*, WARN+9
, WARN+10, WARN+14, CAN+2, CAN+3, CAN+5*, ECAN+2, ECAN+5*, CMOP1+1, CMOP1+2, CMOP1+3
^PSRX("AH" CAN+5!, ECAN+5!

Label References

Name Line Occurrences
$$CIDADJ CID+4, CIDH+2
CHK1 CHK1+2
EX KPR+2, KREF, KREF+1, ORIG, ORIG+1
KILL K52+1, K52+2
KREF KPR+1, KREF+2
ORIG KPR+1
SREF SREF

Naked Globals

Name Field # of Occurrence
^( ACTLOG+1, ACTOUT!, ACTOUT+1, ACTOUT+2!
^("P" K52+2
^(0 SUSPCAN+2*, ACTOUT+1, K52+2, S52+2, KILL+6, KILL+12, KILL+13, CMOP1+3
^(2 ACTOUT, ENDVCHK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % KILL+17
>> %DT CID+5*, CIDH+3*
>> %DT(0 CID+5*
>> ANS CHK1+1*, CHK1+2, CHK1+3
CMOP WARN+3!, WARN+6!
CMOP( WARN+3, WARN+4, CMOP1+3*
CMOP("L" CMOP1+1*
CMOP("S" CMOP1+4*
CNT KILL+15*, KILL+16*, KILL+17, KILL+18, KILL+20!
CRX CMOP+5*, CMOP1+1, CMOP1+2, CMOP1+3, CMOP1+4, CMOP1+5!
DA KILL+16*, KILL+17, KPR+1, KREF+2, IBSSR*, WARN+3, WARN+4, WARN+10, WARN+14, WARN+19
, CAN+1~, CAN+3*, CAN+4*, ECAN+1~, ECAN+3*, ECAN+4*, CMOP+5
DA(1 K52, S52, S52+1, KILL+2, KILL+15, KILL+17, KILL+18, KILL+20, SPR, SPR+1
, SREF, SREF+1, SREF+2, KPR, KPR+2, KREF+1, KREF+2, ORIG, ORIG+1, WARN+9
, WARN+10, WARN+14, WARN+19
DFN KILL~, KILL+2*, KILL+4, KILL+7, KILL+14!
DIE IBSSR*!
DIK CAN+3*!, CAN+4*!, ECAN+3!*, ECAN+4!*
DIR WARN+23!, WARN+29!
DIR("?" WARN+27*
DIR("A" WARN+24*
DIR("B" WARN+25*
DIR(0 WARN+26*
>> DR IBSSR*
DT ACTLOG+1, ACTOUT
DTIME CHK1+1
DUZ KILL+17
IFN CAN+1~
NODE SPR*, SPR+1, SREF*, SREF+1, SREF+2, SREF+3!, KPR*, KPR+1*, KPR+2, KREF*
, KREF+1, KREF+2, ORIG, ORIG+1, EX!, CAN+1~
PAT KILL+2*, KILL+4, KILL+14!
>> PSDFN ACTOUT, ACTOUT+2, ACTOUT+3
>> PSFROM QUES+1
PSI SUSPCAN+1*, SUSPCAN+2*!, SUSPCAN+3!, ACTLOG+1*, ACTOUT*, ACTOUT+1*
PSID CID+3*, CID+5!
PSLAST SUSPCAN+1*, SUSPCAN+2!
>> PSMSG ACTLOG+1
PSOC7 KILL+10~*, KILL+11, KILL+12
>> PSOCLC ACTLOG+1
>> PSODIV ENDVCHK
>> PSODRUG("IEN" CIDADJ+3, CIDADJ+4
PSOHLP IBSS~, IBSS+7!
PSOHLP(1 IBSS*, IBSS+1*
PSOHLP(2 IBSS+2*, IBSS+3*
PSOHLP(3 IBSS+4*, IBSS+5*
PSOHLP(4 IBSS+6*
>> PSOIBFL IBSSR*
>> PSOIBLP IBSSR*
>> PSOIBST IBSSR*
PSOL WARN+8~, WARN+9*, WARN+10
>> PSOPOP ENDVCHK*
>> PSOPSDAL KILL+20
PSOSFN K52!*
>> PSOSITE ENDVCHK, IBSSR
PSOSX S52*, S52+6!
PSOSXDT S52+6!
>> PSOSYS CHK1, CHK1+1
>> PSOUNHLD WARN+1
PSOXRX CAN~, CAN+2, CAN+3, CAN+4, CAN+5, ECAN~, ECAN+2, ECAN+3, ECAN+4, ECAN+5
PSOXX K52+1~*, KILL+18, KILL+20
>> PSPOP CHK1*, CHK1+1*, CHK1+3*
PSR WARN+8~, WARN+9*
>> PSREA ACTLOG+1, ACTOUT, ACTOUT+1, ACTOUT+3
>> PSRX SUSPCAN+1, SUSPCAN+2, SUSPCAN+3, ACTLOG+1, ACTOUT, ACTOUT+1, ACTOUT+2, ACTOUT+3, ENDVCHK, CHK1
, CHK1+1
>> PSRXREF ACTLOG+1
>> PSS ACTOUT+1*, ACTOUT+2
RES CIDADJ+1~, CIDADJ+2*, CIDADJ+5*, CIDADJ+6
>> RESK KILL+20
RF SPR*, SREF+3!, KPR*, EX!, CAN+1~
RFID S52*, S52+3, S52+4, S52+5, S52+6!
RFIN S52+6!
>> RIFN S52*
SDT K52+3*, K52+4, K52+5, K52+6!
SFN K52*, K52+1, K52+2, K52+3, K52+4, K52+5, K52+6!, S52+1*, S52+2, S52+3
, S52+4, S52+5, S52+6!, KILL+1, KILL+2, KILL+4, KILL+5, KILL+6, KILL+7, KILL+8
, KILL+10, KILL+11, KILL+12, KILL+13, KILL+14!
SUB KILL+15*, KILL+20!
SUS1 SUSPCAN+2!, SUSPCAN+3!
SUS2 SUSPCAN+2!, SUSPCAN+3!
SUSD CAN+1~, CAN+3*
SUSX SUSPCAN+2!, SUSPCAN+3!
X K52+2, CID+3, CID+4*, CID+5*, CIDH+2*, KPR+1, KREF+2, CMOP1~, CMOP1+1*, CMOP1+2*
, CMOP1+3, CMOP1+4*, CMOP1+5!
>> Y K52+2, CID+5, CIDH+3, IBSSR*, WARN+19
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