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

Package: Outpatient Pharmacy

Routine: PSODEM


Information

PSODEM ;BIR/SAB - PATIENT DEMOGRAPHICS ;Jan 21, 2021@16:15

Source Information

Source file <PSODEM.m>

Entry Points

Name Comments DBIA/ICR reference
GET
RE ;
CRCL
MA
Q
GMRA
WH ; WOMEN'S HEALTH

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,VADM(1)
  • Line Location: GET+0
Function Call: WRITE
  • Prompt: !?5,"(TEMP ADDRESS from "_$P(VAPA(9),"^",2)_" till "_$S($P(VAPA(10),"^",2)]"":$P(VAPA(10),"^",2),1:"(no end date)")_")"
  • Line Location: GET+1
Function Call: WRITE
  • Prompt: !,VAPA(1),?40,"DOB: ",$S(+VADM(3):$P(VADM(3),"^",2),1:"UNKNOWN")
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !,VAPA(4),?40,"PHONE: "_VAPA(8),!,$P(VAPA(5),"^",2)_" "_$S(VAPA(11)]"":$P(VAPA(11),"^",2),1:VAPA(6)),?40,"ELIG: "_$P(VAEL(1),"^",2)
  • Line Location: GET+3
Function Call: WRITE
  • Prompt: !?40,"SC%: "_$P(VAEL(3),"^",2)
  • Condition for execution: +VAEL(3)
  • Line Location: GET+3
Function Call: WRITE
  • Prompt: !,"CANNOT USE SAFETY CAPS."
  • Condition for execution: $P(^(0),"^",2)
  • Line Location: GET+4
Function Call: WRITE
  • Prompt: ?40,"DIALYSIS PATIENT."
  • Line Location: GET+4
Function Call: WRITE
  • Prompt: !!?5,"Pharmacy Narrative: "
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L($P(X," ",I))+$L(" ")>IOM
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: $P(X," ",I)," "
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: !!,"WEIGHT(Kg): "
  • Line Location: RE+6
Function Call: WRITE
  • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
  • Condition for execution: +$P(WT,"^",8)
  • Line Location: RE+6
Function Call: WRITE
  • Prompt: ?41,"HEIGHT(cm): "
  • Line Location: RE+6
Function Call: WRITE
  • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
  • Condition for execution: $P(HT,"^",8)
  • Line Location: RE+6
Function Call: WRITE
  • Prompt: !,$G(ZDSPL),?40," BSA (m2): ",PSOBSA
  • Line Location: CRCL+8
Function Call: WRITE
  • Prompt: !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2)
  • Line Location: CRCL+11
Function Call: WRITE
  • Prompt: ?$X+5,"SC%: "_$P(VAEL(3),"^",2)
  • Condition for execution: +VAEL(3)
  • Line Location: CRCL+11
Function Call: WRITE
  • Prompt: !,"DISABILITIES: "
  • Line Location: MA+0
Function Call: WRITE
  • Prompt: PSDIS,"-",PSCNT,"% (",$S($P(I1,"^",3):"SC",1:"NSC"),"), "
  • Line Location: MA+3
Function Call: WRITE
  • Prompt: @IOF,?13
  • Line Location: MA+4
Function Call: WRITE
  • Prompt: !?11
  • Condition for execution: $X+$L(DR)+$L(", ")>IOM
  • Line Location: GMRA+2
Function Call: WRITE
  • Prompt: DR_", "
  • Line Location: GMRA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GMRA+3
Function Call: WRITE
  • Prompt: @IOF,?18
  • Line Location: GMRA+3
Function Call: WRITE
  • Prompt: !?19
  • Condition for execution: $X+$L(DR)+$L(", ")>IOM
  • Line Location: GMRA+4
Function Call: WRITE
  • Prompt: DR_", "
  • Line Location: GMRA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GMRA+5
Function Call: WRITE
  • Prompt: @IOF,?18
  • Line Location: GMRA+5
Function Call: WRITE
  • Prompt: !!,AD
  • Line Location: GMRA+6
Function Call: WRITE
  • Prompt: "_"
  • Line Location: GMRA+6
Function Call: WRITE
  • Prompt: !!,"ALLERGIES: NKA",!!,"ADVERSE REACTIONS:"
  • Line Location: GMRA+7
Function Call: WRITE
  • Prompt: !
  • Line Location: GMRA+8
Function Call: WRITE
  • Prompt: !,"WOMEN'S HEALTH: ",$$GETSTATUS^WVRPCPT(DFN),!
  • Line Location: WH+1
Info |  Source |  Entry Points |  Interaction Calls