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

Package: Inpatient Medications

Routine: PSJHEAD


Information

PSJHEAD ;BIR/KKA-PROFILE HEADER ; 4/1/08 4:29pm

Source Information

Source file <PSJHEAD.m>

Entry Points

Name Comments DBIA/ICR reference
ENTRY(DFN,PSJOPC,PG,PSJNARC,PSJTEAM,PSJY2K)
STUFF ;
ENHEAD ; print new page, name, ssn, dob, and ward
NONE ;
ALG ;
ADR ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: O F I L E" W
  • Timeout: PSJOPC="IV"
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: ?16,"I N P A T I E N T M E D I C A T I O N S"
  • Condition for execution: PSJOPC="ALL"
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: ?19,"U N I T D O S E P R O F I L E"
  • Condition for execution: PSJOPC="UD"
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: !,?19,"I V P A T I E N T P R O F I L E"
  • Condition for execution: PSJOPC="IV"
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: ?64,HDT,!,SLS,SLS,$E(SLS,1,24),!
  • Line Location: ENHEAD+3
Function Call: READ
  • Variable: O F I L E" W
  • Timeout: PSJOPC="IV"
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: ?16,"I N P A T I E N T M E D I C A T I O N S"
  • Condition for execution: PSJOPC="ALL"
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: ?19,"U N I T D O S E P R O F I L E"
  • Condition for execution: PSJOPC="UD"
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: !,?19,"I V P A T I E N T P R O F I L E"
  • Condition for execution: PSJOPC="IV"
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: ?64,HDT
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: !?+X,$P(X,U,2),!,SLS,SLS,$E(SLS,1,24),!
  • Line Location: ENHEAD+8
Function Call: WRITE
  • Prompt: ?75-$L(PG),"Pg: ",PG-$D(PSGVWA)
  • Condition for execution: $D(PSJPR)
  • Line Location: ENHEAD+9
Function Call: WRITE
  • Prompt: !?4,"PID: ",PSJPPID
  • Line Location: ENHEAD+10
Function Call: WRITE
  • Prompt: $J(PSJPHT,6,2)
  • Condition for execution: 'PSJPDD ?26 W:PSJPDD ?21,"Last " W "Room-Bed: ",$S(RB="":"* NF *",1:RB),?53,"Ht(cm): ",?61 W:PSJPHT["_" PSJPHT W:PSJPHT'["_"
  • Line Location: ENHEAD+10
Function Call: WRITE
  • Prompt: ?68,PSJPHTD
  • Line Location: ENHEAD+10
Function Call: WRITE
  • Prompt: !?4,"DOB: ",$S($D(PSJY2K):$E($P(PSJPDOB,"^",2),1,10),1:$E($P(PSJPDOB,"^",2),1,8))_" ("_PSJPAGE_")"
  • Line Location: ENHEAD+11
Function Call: WRITE
  • Prompt: ?30,"Team: ",$S(TEAM]"":TEAM,1:"* NF *")
  • Line Location: ENHEAD+13
Function Call: WRITE
  • Prompt: ?68,PSJPWTD
  • Line Location: ENHEAD+14
Function Call: WRITE
  • Prompt: !?5,"Dx: ",$S(PSJPDX]"":PSJPDX,1:"* NF *")
  • Line Location: ENHEAD+16
Function Call: WRITE
  • Prompt: ?PSJPDD>0*6+43,$S(PSJPDD:"Discharged: ",1:"Last transferred: "),$S($D(PSJY2K):$E($P(X,"^",2),1,10),1:$E($P(X,"^",2),1,8))
  • Line Location: ENHEAD+16
Function Call: WRITE
  • Prompt: !?2,$G(ZDSPL),?51,"BSA (m2): ",$G(PSJBSA)
  • Line Location: ENHEAD+26
Function Call: WRITE
  • Prompt: !?1,"Pharmacy Narrative: "
  • Line Location: ENHEAD+28
Function Call: WRITE
  • Prompt: " ____________________"
  • Condition for execution: SI=""&($E(IOST)="P")
  • Line Location: ENHEAD+28
Function Call: WRITE
  • Prompt: !,?21
  • Condition for execution: $X+$L(WRD)>79
  • Line Location: ENHEAD+30
Function Call: WRITE
  • Prompt: " ",WRD
  • Line Location: ENHEAD+30
Function Call: WRITE
  • Prompt: !?1,"Allergies: "
  • Line Location: ENHEAD+32
Function Call: WRITE
  • Prompt: $C(7),!!?80-$L(X)\2,X
  • Line Location: ENHEAD+34
Function Call: WRITE
  • Prompt: !?7,"ADR: "
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: "____________________________________"
  • Condition for execution: $E(IOST)="P"
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: "No Allergy Assessment"
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !?7,"ADR: "
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: "____________________________________"
  • Condition for execution: $E(IOST)="P"
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !?12
  • Condition for execution: KKA>1
  • Line Location: ALG+5
Function Call: WRITE
  • Prompt: PSGVALG(KKA)
  • Line Location: ALG+5
Function Call: WRITE
  • Prompt: !," NV Aller.: "
  • Line Location: ALG+6
Function Call: WRITE
  • Prompt: !?12
  • Condition for execution: KKA>1
  • Line Location: ALG+7
Function Call: WRITE
  • Prompt: PSGALG(KKA)
  • Line Location: ALG+7
Function Call: WRITE
  • Prompt: !?7,"ADR: "
  • Line Location: ADR+2
Function Call: WRITE
  • Prompt: !?12
  • Condition for execution: KKA>1
  • Line Location: ADR+5
Function Call: WRITE
  • Prompt: PSGVADR(KKA)
  • Line Location: ADR+5
Function Call: WRITE
  • Prompt: !?4,"NV ADR: "
  • Line Location: ADR+6
Function Call: WRITE
  • Prompt: !?12
  • Condition for execution: KKA>1
  • Line Location: ADR+7
Function Call: WRITE
  • Prompt: PSGADR(KKA)
  • Line Location: ADR+7
Info |  Source |  Entry Points |  Interaction Calls