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

Package: Outpatient Pharmacy

Routine: PSOARCLT


Information

PSOARCLT ;BHAM ISC/LGH - list archived prescriptions ; 11/17/92 18:17

Source Information

Source file <PSOARCLT.m>

Entry Points

Name Comments DBIA/ICR reference
AC
DONE
GET
RE
END ;
W
P
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: AC+0
Function Call: WRITE
  • Prompt: !,"Patient has no archived prescriptions !",!
  • Line Location: AC+2
Function Call: READ
  • Formatting: !
  • Prompt: " Please press RETURN to continue"
  • Variable: Z
  • Timeout: DTIME
  • Line Location: AC+5
Function Call: WRITE
  • Prompt: @IOF,!,$G(VADM(1)),?40,"ID#: ",$P($G(VADM(2)),"^",2)
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !?5,"(TEMP ADDRESS from "_Y
  • Line Location: GET+3
Function Call: WRITE
  • Prompt: " till "_Y_")"
  • Line Location: GET+3
Function Call: WRITE
  • Prompt: !,$G(VAPA(1)),?40,"DOB: ",$S($G(VADM(3)):$E($P(VADM(3),"^"),4,5)_"-"_$E($P(VADM(3),"^"),6,7)_"-"_(1700+$E($P(VADM(3),"^"),1,3)),1:"UNKNOWN")
  • Line Location: GET+4
Function Call: WRITE
  • Prompt: !,$G(VAPA(4)),?40,"PHONE: ",$G(VAPA(8))
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: !,$P($G(VAPA(5)),"^",2)
  • Line Location: GET+6
Function Call: WRITE
  • Prompt: " ",$G(VAPA(6)),?40,"ELIG: "
  • Line Location: GET+7
Function Call: WRITE
  • Prompt: SC
  • Line Location: GET+7
Function Call: WRITE
  • Prompt: !,"CANNOT USE SAFETY CAPS."
  • Line Location: GET+8
Function Call: WRITE
  • Prompt: ?40,"DIALYSIS PATIENT."
  • Line Location: GET+9
Function Call: WRITE
  • Prompt: !!?5,"Pharmacy narrative: "
  • Line Location: GET+10
Function Call: WRITE
  • Prompt: $P(X," ",I)," "
  • Line Location: GET+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: GET+10
Function Call: WRITE
  • Prompt: !!,"ELIGIBILITY: ",SC
  • Line Location: RE+1
Function Call: WRITE
  • Prompt: PSDIS,"-",PSCNT,"% (",$S($P(I1,"^",3):"SC",1:"NSC"),"), "
  • Line Location: RE+3
Function Call: WRITE
  • Prompt: !!,"ARCHIVED: "
  • Line Location: END+1
Function Call: WRITE
  • Prompt:
  • Condition for execution: PSOD'=0 !?10 S PSOD=$O(^PS(55,DA,"ARC",PSOD)) Q:'PSOD
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: Q:'$D(^PS(55,DA,"ARC",PSOD,1,0)) Q:$P(^PS(55,DA,"ARC",PSOD,1,0),U,4)'>0
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $E(PSOD,4,5),"/",$E(PSOD,6,7),"/",$E(PSOD,2,3)," - "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?21
  • Condition for execution: ($X+$L($P(PSORR,"*",J1))+1)>IOM
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $P(PSORR,"*",J1),","
  • Line Location: P+1
Info |  Source |  Entry Points |  Interaction Calls