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 |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DVBCMOCK

Package: Automated Medical Information Exchange

Routine: DVBCMOCK


Information

DVBCMOCK ;ALB/GTS-557/THM-MENTAL, NOT ELSEWHERE CLASSIFIED ; 5/10/90 9:17 AM

Source Information

Source file <DVBCMOCK.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 HOME^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
EN
TXT ;;This exam is to handle the balance of currently recognized mental disorders
HD2
SETIOF ; ** Set device control var's

External References

Name Field # of Occurrence
HOME^%ZIS SETIOF+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?22,"Compensation and Pension Examination",!?33,"# 0905 Worksheet",!,?(IOM-$L(DVBAX)\2),DVBAX,!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: "Name: ",NAME,?45,"SSN: ",SSN,!,?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: MENTAL, NOT ELSEWHERE CLASSIFIED",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: "Physician's Guide Reference: None",!!,"Narrative:",!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: $P(LY,";;",2),!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for "_NAME,!
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: "For MENTAL, NOT ELSEWHERE CLASSIFIED",!!!
  • Line Location: HD2+1
Routine Call
  • %ZIS
  • Line Location:
    • SETIOF+1

Label References

Name Line Occurrences
HD2 EN+5
SETIOF EN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNUM EN+3
DVBAX EN*, EN+2, EN+6!
I EN+5*, EN+6!
IOF EN+1, HD2
IOM EN+2
IOST EN+1
LY EN+5*, EN+6!
>> NAME EN+3, HD2
>> PG EN+1*, HD2*
>> SSN EN+3

Marked Items

Name Field # of Occurrence
$T(TXT+I EN+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All