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 |  All
Print Page as PDF
Routine: DWCONSRB

Package: Uncategorized

Routine: DWCONSRB


Information

DWCONSRB ; PIMC - CONSULTANT RECORD BRIEF 1/15/97 1:42 PM ; [ 01/16/97 9:20 AM ]

Source Information

Source file <DWCONSRB.m>

Entry Points

Name Comments DBIA/ICR reference
END1
END
HDR ;EP - CONSULTANT RECORD SHEET
ALIAS ;OTHER NAMES
DEV
START ; ENTRY POINT - From TaskMan.
DFN ; ENTRY POINT - Pre-Defined Patient Number.
QUE ;QUE TO TASKMAN
CONF
L1
NODFN ; ENTRY POINT - No Pre-Defined Patient Number.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ALIAS+5
Function Call: WRITE
  • Prompt: "SSN: ",AG("LKPRINT")
  • Line Location: ALIAS+7
Function Call: WRITE
  • Prompt: ?40,"SSN STATUS: ",$P(^AUTTSSN($P(^(0),U,23),0),U,2)
  • Line Location: ALIAS+8
Function Call: WRITE
  • Prompt: ?40,"SSN STATUS UNKNOWN"
  • Line Location: ALIAS+9
Function Call: WRITE
  • Prompt: !,"CLASS: "
  • Line Location: ALIAS+10
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: ALIAS+10
Function Call: WRITE
  • Prompt: ?62,"SEX: "
  • Line Location: ALIAS+11
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: ALIAS+11
Function Call: WRITE
  • Prompt: !,"COMMUNITY: "
  • Line Location: ALIAS+12
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: ALIAS+12
Function Call: WRITE
  • Prompt: " (",$S($P(^(11),U,21)="Y":"Verified",1:"Unverified"),")"
  • Line Location: ALIAS+12
Function Call: WRITE
  • Prompt: ?57,"BIRTHDAY: "
  • Line Location: ALIAS+13
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: ALIAS+13
Function Call: WRITE
  • Prompt: $P(^(0),U)
  • Line Location: ALIAS+14
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Line Location: ALIAS+15
Function Call: WRITE
  • Prompt: !,"HOME ADDRESS:"
  • Line Location: ALIAS+16
Function Call: WRITE
  • Prompt: !?5,AG("LKPRINT")
  • Line Location: ALIAS+16
Function Call: WRITE
  • Prompt: !,AG("-"),!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !?40-($L(AG("LOC"))\2),AG("LOC"),!?27,"CONSULTANT RECORD BRIEF",!?25,"------------------------------",!,AGTIME,?70,"Page: ",AG("PAGE"),!,AG("="),!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "PATIENT: "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: " (VETERAN)"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?59,"CHART #: "
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: $P(^(0),U,2)
  • Condition for execution: $D(^AUPNPAT(DFN,41,DUZ(2),0))
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,AG("="),!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?20,"*** CONFIDENTIAL CLIENT INFORMATION ***"
  • Line Location: CONF+0
Function Call: WRITE
  • Prompt: !,?10,"This information has been disclosed to you from client records"
  • Line Location: CONF+1
Function Call: WRITE
  • Prompt: !,?10,"whose confidentiality is protected by Federal law. CFR42, Part 2"
  • Line Location: CONF+2
Function Call: WRITE
  • Prompt: !,?10,"prohibits you from making any further disclosure without the"
  • Line Location: CONF+3
Function Call: WRITE
  • Prompt: !,?10,"specific written consent of the person to whom it pertains, or"
  • Line Location: CONF+4
Function Call: WRITE
  • Prompt: !,?10,"as otherwise permitted by such regulations. A general authorization"
  • Line Location: CONF+5
Function Call: WRITE
  • Prompt: !,?10,"for the release of medical or other information is NOT sufficient"
  • Line Location: CONF+6
Function Call: WRITE
  • Prompt: !,?10,"for this purpose."
  • Line Location: CONF+7
Function Call: WRITE
  • Prompt: !,?20,"*** CONFIDENTIAL CLIENT INFORMATION ***"
  • Line Location: CONF+8
Info |  Source |  Entry Points |  Interaction Calls |  All