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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOQMCAL

Package: Outpatient Pharmacy

Routine: PSOQMCAL


Information

PSOQMCAL ; SEA/HAM3 PMI - PHARMACY MEDICATION INSTRUCTION ; 30 Nov 2007 7:55 AM

Source Information

Source file <PSOQMCAL.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Outpatient Pharmacy 3 ($$EXPDATE,$$REFILLS)^PSOQ0076  $$ZZ^PSOSUTL  FSIG^PSOUTLA  
VA Fileman 3 C^%DTC  ^DIWP  ^DIWW  
Adverse Reaction Tracking 1 ^GMRADPT  
Health Summary 1 CKP^GMTSUP  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Order Entry Results Reporting 1 COVER^ORWPS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOQ0186  

Entry Points

Name Comments DBIA/ICR reference
GETOPORD(ORDLIST) ;
ALL ;Gets allergy info
EN
GETPEND(RXSIEN) ;RMS/HINES 8-16-07 ADD PENDING RX'S
HD2
HD1 ; Header for 1st page
SHOW(PTIEN) ;
HD3 ;Header for subsequent pages
CKSTATUS(LISTNODE) ;
1 ;Patient
RE ;Allergies
PGE
GETRXDAT(RXS) ;
HD ;
NVA ;NVA MEDS ADDED 5/6/05
GETTYPE(IEN52) ;
GETCLASS(IENRX) ;
IPORD(LISTNODE) ;

External References

Name Field # of Occurrence
C^%DTC EN+30
^DIWP RE+4
^DIWW RE+4
^GMRADPT ALL+3
CKP^GMTSUP PGE
COVER^ORWPS SHOW+2
$$EXPDATE^PSOQ0076 GETRXDAT+12
$$REFILLS^PSOQ0076 GETRXDAT+12
$$ZZ^PSOSUTL GETRXDAT+6
FSIG^PSOUTLA GETRXDAT+7
$$FMTE^XLFDT EN+10, GETRXDAT+12
$$NOW^XLFDT EN+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DRUGSEP
  • Line Location: SHOW+9
Function Call: WRITE
  • Prompt: @EMPTYLN
  • Line Location: SHOW+10
Function Call: WRITE
  • Prompt: !,"|","SUPPLY ITEMS:"_$E(BLNKLN,14,PGWIDTH-2)_"|"
  • Line Location: SHOW+11
Function Call: WRITE
  • Prompt: !,DRUGSEP,@IOF
  • Line Location: SHOW+17
Function Call: WRITE
  • Prompt: !,DRUGSEP,@IOF
  • Line Location: SHOW+24
Function Call: WRITE
  • Prompt: !,"|",IDRUG_$E(BLNKLN,$L(IDRUG),PGWIDTH-3)_"|"
  • Line Location: SHOW+26
Function Call: WRITE
  • Prompt: !,"| ",LIST(ITYPE,IDRUG,ISIG),$E(BLNKLN,$L(LIST(ITYPE,IDRUG,ISIG)),PGWIDTH-8),"|"
  • Line Location: SHOW+30
Function Call: WRITE
  • Prompt: !,DRUGSEP
  • Line Location: NVA+3
Function Call: WRITE
  • Prompt: @EMPTYLN
  • Line Location: NVA+4
Function Call: WRITE
  • Prompt: !,"|","NON-VA Medications:"_$E(BLNKLN,20,PGWIDTH-2)_"|"
  • Line Location: NVA+5
Function Call: WRITE
  • Prompt: @EMPTYLN
  • Line Location: NVA+6
Function Call: WRITE
  • Prompt: !,DRUGSEP,@IOF
  • Line Location: NVA+11
Function Call: WRITE
  • Prompt: !,"|",NVADRUG_$E(BLNKLN,$L(NVADRUG),PGWIDTH-3)_"|"
  • Line Location: NVA+12
Function Call: WRITE
  • Prompt: !,INSTSEP1
  • Line Location: NVA+14
Function Call: WRITE
  • Prompt: !!,"Any medication items listed as ""pending"" are those that have just been"
  • Line Location: NVA+17
Function Call: WRITE
  • Prompt: !,"written by your provider(s). These medication orders will be reviewed"
  • Line Location: NVA+18
Function Call: WRITE
  • Prompt: !,"by your pharmacist, prior to the prescription(s) being dispensed. When"
  • Line Location: NVA+19
Function Call: WRITE
  • Prompt: !,"you receive your new prescription(s), by mail or from the pharmacy window,"
  • Line Location: NVA+20
Function Call: WRITE
  • Prompt: !,"be sure to follow the instructions on the prescription label. If you"
  • Line Location: NVA+21
Function Call: WRITE
  • Prompt: !,"have any question about your medication, please call your provider or "
  • Line Location: NVA+22
Function Call: WRITE
  • Prompt: !,"your pharmacist."
  • Line Location: NVA+23
Function Call: WRITE
  • Prompt: !,"Date: ",RPTDATE,?XPOS1,"PATIENT MEDICATION INFORMATION"
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: ?XPOS2,"Page: ",PAGE
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: !,?XPOS4,"PRINTED BY THE VA MEDICAL CENTER AT: "_$P($G(^DIC(4,+$G(^PS(59,PSOSITE,"INI")),0)),U,1)
  • Line Location: HD1+7
Function Call: WRITE
  • Prompt: !,?XPOS4,"FOR PRESCRIPTION REFILLS CALL ("_$P(ARLSITE,U,3)_") "_$P(ARLSITE,U,4)
  • Line Location: HD1+8
Function Call: WRITE
  • Prompt: !!,"Name: ",$E(ARLNAME,1,40)," - ",$E(ARLSN,6,9)
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: ?30," PHARMACY - ",$P(ARLSITE,"^",7)," DIVISION (",$P(ARLSITE,"^",3),"-",$P(ARLSITE,"^",4),")",!
  • Line Location: HD2+1
Function Call: WRITE
  • Prompt: !,INSTSEP1,!,DRUGHDR1
  • Line Location: HD2+2
Function Call: WRITE
  • Prompt: !,"Date: ",RPTDATE,?XPOS1,"PATIENT MEDICATION INFORMATION"
  • Line Location: HD3+1
Function Call: WRITE
  • Prompt: ?XPOS2,"Page: ",PAGE
  • Line Location: HD3+2
Function Call: WRITE
  • Prompt: !,?XPOS4,"PRINTED BY THE VA MEDICAL CENTER AT: "_$P($G(^DIC(4,+$G(^PS(59,PSOSITE,"INI")),0)),U,1)
  • Line Location: HD3+3
Function Call: WRITE
  • Prompt: !,?XPOS4,"FOR PRESCRIPTION REFILLS CALL ("_$P(ARLSITE,U,3)_") "_$P(ARLSITE,U,4),!
  • Line Location: HD3+4
Function Call: WRITE
  • Prompt: !?1,"Name: ",$E(ARLNAME,1,40)," - ",$E(ARLSN,6,9)
  • Line Location: HD3+5
Function Call: WRITE
  • Prompt: ?30," PHARMACY - ",$P(ARLSITE,"^",7)," DIVISION (",$P(ARLSITE,"^",3),"-",$P(ARLSITE,"^",4),")",!
  • Line Location: HD3+6
Function Call: WRITE
  • Prompt: !,INSTSEP1
  • Line Location: HD3+7
Function Call: WRITE
  • Prompt: !,ARLDASH,!!
  • Line Location: RE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HD1+7, HD3+3
^DIC(5 - [#5] HD+13
^DPT - [#2] HD+2, HD+4, HD+6, HD+7
^OR(100 - [#100] GETPEND+3, GETPEND+4, GETPEND+5, GETPEND+7, GETPEND+8, GETPEND+9, GETPEND+10
^ORD(101.43 - [#101.43] GETPEND+4
^PS(50.605 - [#50.605] GETCLASS+10
^PS(59 - [#59] HD1+1, HD1+7, HD3+3
^PSDRUG - [#50] GETPEND+7, GETCLASS+6, GETCLASS+7
^PSRX - [#52] GETCLASS+3

Label References

Name Line Occurrences
$$CKSTATUS GETOPORD+5
$$GETCLASS GETTYPE+3
$$GETTYPE GETRXDAT+8
$$IPORD GETOPORD+4
ALL RE+2
GETOPORD SHOW+3
GETPEND GETRXDAT+4
GETRXDAT SHOW+4
HD 1+4
HD3 SHOW+17, SHOW+24, NVA+11
PGE NVA+17, NVA+18, NVA+19, NVA+20, NVA+21, NVA+22, NVA+23, HD1+2
SHOW 1+4

Naked Globals

Name Field # of Occurrence
^( HD+4, HD+6, HD+7, HD+8, HD+9, HD+10
^(0 HD+3, HD+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDR EN+1~, HD+6*, HD+10*, HD+12, HD+13, HD+14, HD+15
ADDR(1 HD+15*
ADDR(2 HD+15*, HD+16, HD+17*
ADDR(3 HD+15*, HD+17, HD+18*
ADDR(4 HD+14*
ADDRFL EN+6~, HD+11*
AL EN+1~, ALL+5*, ALL+7
ALFLAG EN+1~, RE+2*
ARLDASH EN+1~, RE+1*
ARLDATE EN+2~, EN+30*
ARLDFN EN+2~, 1+1*, 1+2*, 1+4, HD+1, HD+2, HD+4, HD+6, HD+7, ALL+3
ARLDOB EN+2~, HD+3*
ARLEND ALL+2~, ALL+3*, ALL+5, ALL+6*
ARLNAME EN+2~, HD+2*, HD2, HD3+5
>> ARLPAT 1+2
ARLSITE EN+2~, HD1+1*, HD1+8, HD2+1, HD3+4, HD3+6
ARLSN EN+2~, HD+3*, HD2, HD3+5
BLANKLN EN+3~, EN+15*
BLNKLN EN+3~, EN+15*, EN+16, EN+19, EN+21, EN+27, EN+29, SHOW+11, SHOW+26, SHOW+30
, NVA+5, NVA+12, HD3+8, HD3+9, RE+1
CLASS GETTYPE+1~, GETTYPE+3*, GETTYPE+4, GETTYPE+5
COUNT GETPEND+11~, GETPEND+13*, GETPEND+14, GETPEND+17
DATA ALL+2~, ALL+5*
DAYSEP EN~, EN+17*, EN+20, EN+26, EN+28
>> DFN ALL+3*
DIWF EN+7~, RE+4*
DIWL EN+7~, RE+4*
DIWR EN+7~, RE+4*
DRUG1 EN+3~, RE+4, ALL+3*, ALL+4*, ALL+6*, ALL+7*
DRUGHDR1 EN~, EN+7~, EN+18*, EN+19*, HD2+2, HD3+10
DRUGHDR2 EN~, EN+7~, EN+20*, EN+21*
DRUGNAME GETRXDAT+1~, GETRXDAT+6*, GETRXDAT+9, GETRXDAT+11, GETRXDAT+12
DRUGSEP EN~, EN+7~, EN+22*, EN+23*, SHOW+9, SHOW+17, SHOW+24, SHOW+25, NVA+3, NVA+11
DT EN+30, HD+9
EMPTYLN EN+1~, EN+16*, SHOW+10, SHOW+25, NVA+4, NVA+6, HD3+8, HD3+9
FN EN+6~, HD+1*
FOOD EN+3~, RE+4, ALL+3*, ALL+8*
FSIG GETRXDAT+1~, GETRXDAT+9
GMRA ALL+1!, ALL+3*
GMRAL EN+3~, RE+3, ALL+1!, ALL+4, ALL+5
GMRAL( ALL+5
>> GMTSQIT NVA+17, NVA+18, NVA+19, NVA+20, NVA+21, NVA+22, NVA+23, HD1+2
HP EN+6~, HD+5*, HD+12*
IA EN+6~, 1+2*
IDRUG EN+3~, SHOW+18*, SHOW+19*, SHOW+22, SHOW+26, SHOW+29, SHOW+30
IEN52 GETTYPE~, GETTYPE+3
IENCLASS GETCLASS+1~, GETCLASS+8*, GETCLASS+9, GETCLASS+10
IENDRUG GETCLASS+1~, GETCLASS+4*, GETCLASS+5, GETCLASS+6, GETCLASS+7
IENRX GETCLASS~, GETCLASS+3
IFN ALL+2~, ALL+5*
INSTSEP1 EN~, EN+7~, EN+24*, EN+25*, SHOW+31, NVA+14, HD2+2, HD3+7
INSTSEP2 EN~, EN+7~, EN+26*, EN+27*, SHOW+31
INSTSEP3 EN~, EN+7~, EN+28*, EN+29*, SHOW+31
IOF SHOW+17, SHOW+24, NVA+11
IOM EN+8
IOSL EN+8
ISIG EN+3~, SHOW+28*, SHOW+29*, SHOW+30
ITYPE EN+3~, SHOW+6*, SHOW+7*, SHOW+8, SHOW+12, SHOW+13, SHOW+15, SHOW+19, SHOW+22, SHOW+29
, SHOW+30
KILLORD GETOPORD+1~, GETOPORD+4*, GETOPORD+5*, GETOPORD+6
LINE GETPEND+11~, GETPEND+16*, GETPEND+17!
LIST SHOW+1~, SHOW+2, SHOW+3, SHOW+4
LIST( SHOW+7, SHOW+15, SHOW+19, SHOW+22, SHOW+29, SHOW+30
LISTIEN GETOPORD+1~, GETOPORD+2*, GETOPORD+3*, GETOPORD+4, GETOPORD+5, GETOPORD+6
LISTNODE IPORD~, IPORD+3, IPORD+5, IPORD+6, CKSTATUS~, CKSTATUS+3, CKSTATUS+4
NEXTWORD GETPEND+11~, GETPEND+14*, GETPEND+15, GETPEND+16, GETPEND+18
NODE0CLS GETCLASS+1~, GETCLASS+10*, GETCLASS+11
NODE0DRG GETCLASS+1~, GETCLASS+6*
NODE0RX GETCLASS+1~, GETCLASS+3*, GETCLASS+4
NODEND50 GETCLASS+1~, GETCLASS+7*, GETCLASS+8
NONE EN+4~, RE+2*, RE+3
NVA EN+4~, SHOW+1~, NVA+1
NVA( NVA+9, IPORD+6*
NVACNT NVA+2~, NVA+7*, NVA+10*, NVA+11, NVA+13!, HD3+8, HD3+9, HD3+10
NVADRUG NVA+2~, NVA+8*, NVA+9*, NVA+12, NVA+13!
ORDLIST GETOPORD~
ORDLIST( GETOPORD+3, GETOPORD+4, GETOPORD+5, GETOPORD+6!
PAGE EN+4~, 1+3*, HD1+4, HD1+5, HD1+6*, HD3+2*
PGLENGTH EN+4~, EN+8*, SHOW+17, SHOW+24, NVA+11
PGWIDTH EN+4~, EN+8*, EN+9, EN+11, EN+12, EN+13, EN+14, EN+15, EN+16, EN+19
, EN+21, EN+22, EN+24, EN+27, EN+29, SHOW+11, SHOW+26, SHOW+30, NVA+5, NVA+12
, GETRXDAT+7, HD3+8, HD3+9, RE+1, RE+4
PHONE EN+4~, HD+4*, HD+5
PKG IPORD+1~, IPORD+3*, IPORD+4
PRETYPE EN+1~, SHOW+5*, SHOW+8, SHOW+12*
PSOQ100 GETPEND+1~, GETPEND+2*, GETPEND+3, GETPEND+4, GETPEND+5, GETPEND+7, GETPEND+8, GETPEND+9, GETPEND+10
PSOQDIND GETPEND+1~, GETPEND+5*, GETPEND+6, GETPEND+7
>> PSOQHS SHOW+31, PGE
PSOQOIND GETPEND+1~, GETPEND+3*, GETPEND+4
PSOQPDN GETPEND+1~, GETPEND+4*, GETPEND+7*, GETPEND+18
PSOQPEND EN~, NVA+16, GETRXDAT+4*
PSOQRAW GETPEND+1~, GETPEND+10*, GETPEND+12, GETPEND+14
PSOQSCT GETPEND+1~, GETPEND+9*, GETPEND+10
PSOQSIND GETPEND+1~, GETPEND+8*, GETPEND+9, GETPEND+10
PSOQSUB GETRXDAT+10~, GETRXDAT+11*, GETRXDAT+12
>> PSOSITE HD1+1, HD1+7, HD3+3
PTIEN SHOW~, SHOW+2
RETURN IPORD+1~, IPORD+2*, IPORD+4*, IPORD+7*, IPORD+8, CKSTATUS+1~, CKSTATUS+2*, CKSTATUS+3*, CKSTATUS+4*, CKSTATUS+5
, GETTYPE+1~, GETTYPE+2*, GETTYPE+4*, GETTYPE+5*, GETTYPE+6, GETCLASS+1~, GETCLASS+2*, GETCLASS+5, GETCLASS+9, GETCLASS+12*
, GETCLASS+13
RPTDATE EN+6~, EN+10*, HD1+3, HD3+1
RXIEN EN+5~, CKSTATUS+1~, GETRXDAT+5*, GETRXDAT+6, GETRXDAT+7, GETRXDAT+8, GETRXDAT+12
RXS GETRXDAT~
RXS( GETRXDAT+3, GETRXDAT+4, GETRXDAT+5, GETRXDAT+9*, GETRXDAT+11, GETRXDAT+12*, GETPEND+2
RXS("D" GETPEND+18*
RXSIEN GETRXDAT+1~, GETRXDAT+2*, GETRXDAT+3*, GETRXDAT+4, GETRXDAT+5, GETPEND~, GETPEND+2
RXTYPE GETRXDAT+1~, GETRXDAT+8*, GETRXDAT+9, GETRXDAT+11, GETRXDAT+12
SIGCNT EN+5~, SHOW+21*, SHOW+23*, SHOW+24
SIGPOS EN+5~, SHOW+21*, SHOW+22*
ST EN+6~, HD+13*, HD+14
SUB GETPEND+1~, GETPEND+12*, GETPEND+17*, GETPEND+18
SUPCNT EN+6~, SHOW+14*, SHOW+16*, SHOW+17, HD3+8, HD3+10
SUPDRUG EN+6~, SHOW+14*, SHOW+15*
SUPTYPE EN+1~, SHOW+5*, SHOW+13, SHOW+14*, SHOW+20, SHOW+25, SHOW+27
TYPE EN+6~, ALL+5*, ALL+7, ALL+8
U GETPEND+2, GETPEND+4, GETPEND+7, HD1+7, HD1+8, HD3+3, HD3+4, ALL+5
VACLASS GETCLASS+1~, GETCLASS+11*, GETCLASS+12
VER ALL+2~, ALL+5*, ALL+7
WORDS GETPEND+11~, GETPEND+12*, GETPEND+13, GETPEND+17
WP EN+6~, HD+5*
X EN+6~, EN+30, HD+8*, HD+9, RE+4*
X1 EN+6~, EN+30*
X2 EN+6~, EN+30*
XPOS1 EN+5~, EN+11*, HD1+3, HD3+1
XPOS2 EN+5~, EN+12*, HD1+5, HD3+2
XPOS3 EN+5~, EN+13*
XPOS4 EN+5~, EN+14*, HD1+7, HD1+8, HD3+3, HD3+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All