Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls