Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Inpatient Medications 4 ENHDR^PSGDSP0  ^PSGDSPN  $$ENDTC2^PSGMI  TXT^PSGMUTL  
VA FileMan 1 NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGDS0  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC LOOP+1
ENHDR^PSGDSP0 LOOP+5
^PSGDSPN END+1, END+2, END+6, END+7, END+8, END+9, END+10
$$ENDTC2^PSGMI LOOP+1
TXT^PSGMUTL ORDP+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PSG" LOOP+2, LOOP+5, END+1

Label References

Name Line Occurrences
DONE LOOP+2, LOOP+5
END LOOP+5
OP END+6
ORDP END+1

Naked Globals

Name Field # of Occurrence
^( LOOP+5, END+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOOP+1
AD DONE+1!
AGE DONE+1!
>> CML LOOP+1*, DONE+1
>> DDRG ORDP+1*, ORDP+2
>> DFN LOOP+5*
DIR DONE+1!
>> DO ORDP+1*, ORDP+5
>> DRG LOOP+4*, END+1*, ORDP+2
>> ELIG LOOP+5*, END+4, ORDP+11, OP+1
ELN LOOP+4*, DONE+1!, END+3, END+7, END+8, END+9, END+10, END+11, END+12
HDR LOOP+5*, DONE+1!, END+7*
I ORDP+4~, ORDP+6*
IO LOOP+1, LOOP+2
IO(0 LOOP+1
IOF LOOP+2, DONE+1
IOSL END+1, END+2, END+6, END+7, END+8, END+9, END+10, END+13
IOST LOOP+1
JJ DONE+1!
LINE LOOP+4*, DONE+1!, ORDP+1, OP+1
LN LOOP+4*, DONE+1!, END+3, END+4, END+7, END+8, END+9, END+10, END+11, END+12
, ORDP+11, ORDP+13, OP+1, OP+2
MARX ORDP+4~, ORDP+6
MARX( ORDP+6
>> N END+2*, END+3, END+6*, ORDP+1*, OP+1
>> NC LOOP+4*, END+7*
>> ND END+1*, ORDP+1, ORDP+2, ORDP+5, ORDP+7
>> NF ORDP+1*
>> NP LOOP+4*, LOOP+5, END+1, END+2, END+6, END+7, END+8, END+9, END+10
PDOB DONE+1!, END+14
PG DONE+1!
PI LOOP+5*, DONE+1!
>> PN LOOP+4*, LOOP+5*, END+1
PPN DONE+1!, END+14
PSEX DONE+1!
>> PSGAPWDN LOOP+3
>> PSGAPWGN LOOP+3
>> PSGDT LOOP+1*
PSGPDT LOOP+1*, LOOP+2, DONE+1!
PSGVAMC DONE+1!
>> PSJSEL("SELECT" LOOP+3
PSSN DONE+1!, END+14
>> Q END+13*
RCT DONE+1!
RF DONE+1!
SCV DONE+1!
>> SI END+1*, ORDP+8
>> SM ORDP+1*
>> SPH ORDP+1*, ORDP+9, ORDP+10, ORDP+11, ORDP+12
STRS LOOP+4*, DONE+1!, ORDP+9, ORDP+10
TD DONE+1!
>> UC ORDP+1*, ORDP+2
WD LOOP+4*, LOOP+5*, DONE+1!, END+1
WT DONE+1!
>> X ORDP+8*
>> Y ORDP+8*
Z DONE+1!, ORDP+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All