YSGAF ;ALB/ASF-GLOBAL ASSESSMENT OF FUNCTIONING ;11/10/97 16:17
Source file <YSGAF.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CLENT | ;
|
|
CE1 | ||
RULE | ;business rule for need dx
|
|
CK | ;check last Axis 5
|
|
;
|
||
QPRT | ;Queued Task Entry Point
|
|
PR1 | ||
TOP | ;print header
|
|
BOT | ;page end
|
|
PTENT | ;patient entry
|
|
DISP5 | ;display last axis5
|
|
DISP51 | ||
ADD5 | ;add axis 5 dx
|
|
RET(YSX) | ;This extrinsic returns the most recent GAF score, GAF
|
|
UPD(YSPN,YSGN,YSGD,YSGC,YSPT) | ;Update GAF information
; YSPN - Patient Name ; YSGN - GAF Score (Axis 5) ; YSGD - Date/Time of Diagnosis ; YSGC - Diagnosis By ; YSPT - Patient Type ('I'npatient or 'O'utpatient) |
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^YSD(627.8 - [#627.8] | Classic Fileman Calls |