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

Package: Inpatient Medications

Routine: PSGDSP


Information

PSGDSP ;BIR/CML3-PRINT DISCHARGE ORDERS ; 12 Feb 99 / 9:54 AM

Source Information

Source file <PSGDSP.m>

Entry Points

Name Comments DBIA/ICR reference
LOOP ;
DONE ;
END ;
ORDP ;
OP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !?22,"AUTHORIZED ABSENCE/DISCHARGE ORDERS",?62,PSGPDT
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,ELN,!?4,"OTHER MEDICATIONS:",!!,$J(N,3),?4,"Medication: ",LN,$E(LN,1,11),!!?4,"Outpatient Directions: ",LN,!!?4
  • Line Location: END+3
Function Call: WRITE
  • Prompt: "___SC ___NSC "
  • Condition for execution: ELIG
  • Line Location: END+4
Function Call: WRITE
  • Prompt: "Qty: _____ Refills: 0 1 2 3 4 5 6 7 8 9 10 11",!!?4,$E(LN,1,35)," ",$E(LN,1,14)," ",$E(LN,1,24)
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !?4,"Provider's Signature",?40,"DEA #",?55,"Date AND Time"
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !,ELN,!?1,"DIETARY INSTRUCTIONS: (Check One)",!?1,"__ NO RESTRICTIONS __ RESTRICTIONS (Specify) ",$E(LN,1,33),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),!
  • Line Location: END+7
Function Call: WRITE
  • Prompt: !,ELN,!?1,"PHYSICAL ACTIVITY LIMITATIONS: (Check One)",!?1,"__ NO RESTRICTIONS __ RESTRICTIONS (Specify) ",$E(LN,1,33),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),!
  • Line Location: END+8
Function Call: WRITE
  • Prompt: !,ELN,!?1,"SPECIAL INSTRUCTIONS: (list print information, handouts, or other",!?1,"instructions pertinent to patient's condition)",$E(LN,1,32),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),!
  • Line Location: END+9
Function Call: WRITE
  • Prompt: !,ELN,!?1,"DIAGNOSES: ",LN,$E(LN,1,15),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26)
  • Line Location: END+10
Function Call: WRITE
  • Prompt: !!!?19,$E(LN,1,35)," ",$E(LN,1,24),!?19,"Nurse's Signature",?55,"Date AND Time",!!?19,$E(LN,1,35)," ",$E(LN,1,24),!?19,"Provider's Signature",?55,"Date AND Time",!!!?19,$E(ELN,1,42),!?19,">>>>> I HAVE RECEIVED AND UNDERSTAND <<<<<"
  • Line Location: END+11
Function Call: WRITE
  • Prompt: !?19,">>>>> MY DISCHARGE INSTRUCTIONS <<<<<",!?19,$E(ELN,1,42),!!?19,$E(LN,1,35)," ",$E(LN,1,24),!?19,"Patient's Signature",?55,"Date And Time"
  • Line Location: END+12
Function Call: WRITE
  • Prompt: !
  • Line Location: END+13
Function Call: WRITE
  • Prompt: !?2,PPN,?40,PSSN,?78-$L(PDOB),PDOB
  • Line Location: END+14
Function Call: WRITE
  • Prompt: !,LINE,!,$J(N,3),?4
  • Line Location: ORDP+1
Function Call: WRITE
  • Prompt: "(N/F) "
  • Line Location: ORDP+1
Function Call: WRITE
  • Prompt: ?56,$P(ND,"^",10),?72,UC
  • Line Location: ORDP+2
Function Call: WRITE
  • Prompt: !?4,"*ORDER CONTAINS "_DDRG_" DISPENSE DRUGS"
  • Condition for execution: (DDRG="MULTIPLE")!(DDRG="NO")
  • Line Location: ORDP+2
Function Call: WRITE
  • Prompt: !?4,"Inpt Dose: "
  • Line Location: ORDP+3
Function Call: WRITE
  • Prompt: ?16,MARX(I),!
  • Line Location: ORDP+6
Function Call: WRITE
  • Prompt: !?4,"Special Instructions: "
  • Line Location: ORDP+8
Function Call: WRITE
  • Prompt: !?30
  • Condition for execution: $X+$L(Y)>78
  • Line Location: ORDP+8
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: ORDP+8
Function Call: WRITE
  • Prompt: !!?4,STRS,!?4,"* THIS IS A SCHEDULE II DRUG. A PRESCRIPTION BLANK *",!?4,"* (VA FORM 10-2277d) MUST BE USED TO ORDER THIS DRUG. *",!?4,STRS
  • Line Location: ORDP+9
Function Call: WRITE
  • Prompt: !!?4,STRS,!?4,"* THIS ITEM IS NONRENEWABLE. *",!?4,"* CONTACT PHARMACY IF YOU HAVE QUESTIONS. *",!?4,STRS
  • Line Location: ORDP+10
Function Call: WRITE
  • Prompt: "Qty: _____ Refills: 0 1 2 3 4 5"_$S((+SPH>2)&(+SPH<6):"",1:" 6 7 8 9 10 11")
  • Line Location: ORDP+12
Function Call: WRITE
  • Prompt: !!?4,$E(LN,1,35)," ",$E(LN,1,14)," ",$E(LN,1,24),!?4,"Provider's Signature",?40,"DEA #",?55,"Date AND Time"
  • Line Location: ORDP+13
Function Call: WRITE
  • Prompt: !,LINE,!!,$J(N,3),?4,"Medication: ",LN,$E(LN,1,11),!!?4,"Outpatient Directions: ",LN,!!?4
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: "___SC ___NSC "
  • Condition for execution: ELIG
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: "Qty: _____ Refills: 0 1 2 3 4 5 6 7 8 9 10 11",!!?4,$E(LN,1,35)," ",$E(LN,1,14)," ",$E(LN,1,24),!?4,"Provider's "
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: "Signature",?40,"DEA #",?55,"Date AND Time"
  • Line Location: OP+3
Info |  Source |  Entry Points |  Interaction Calls