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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDACSCG

Package: Scheduling

Routine: SDACSCG


Information

SDACSCG ;ALB/TET - Print/Edit Computer Generated Appt Types ;3/18/92 14:18

Source Information

Source file <SDACSCG.m>

Entry Points

Name Comments DBIA/ICR reference
CK ; -- check the number of computer generated visits
PRINT ;print those CG types which need to be manually updated
QUE ; -- queue entry point
EXIT ; -- exit processing
CR ; -- end of page processing
HDR ; -- header processing
EDIT ; -- edit computer generated appt types
EDITQ
DATE ;
DATEQ
ALL ; -- loop through and edit all computer generated appt types
ALLQ
DPT ; -- look up in patient file & loop through acg for selected dfn
DPTQ
LOOP(SDBEG,SDEND,SDFN) ;
LOOPQ
DEM(SDOE) ; -- get pt name,ssn and visit date
DEMW ; -- write patient demographics
DIE(SDOE) ; -- do edit
SC(DFN) ;SD*721 - Add Service Connected Information
; Input -- DFN Patient file IEN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"There are ",CT," encounter(s) with a 'Computer Generated' appointment type.",*7,!
  • Line Location: CK+8
Function Call: WRITE
  • Prompt: !?5,"There are no 'Computer Generated' appointment type encounters."
  • Line Location: CK+10
Function Call: WRITE
  • Prompt: !,SDY,?25,$S(VAERR=0:VADM(1),1:"UNKNOWN"),?60,$G(VA("PID"))
  • Line Location: QUE+14
Function Call: WRITE
  • Prompt: !!,CT," MATCHES FOUND.",!
  • Line Location: QUE+16
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue or '^' to exit: "
  • Line Location: CR+2
Function Call: READ
  • Variable: SDXX
  • Timeout: DTIME
  • Line Location: CR+3
Function Call: WRITE
  • Prompt: !?5,"Enter an '^' to exit the listing, or enter RETURN to continue."
  • Line Location: CR+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"COMPUTER GENERATED APPOINTMENT TYPES"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"ENCOUNTER DATE/TIME",?25,"PATIENT",?60,"PT ID",!,DASH,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?5,"There are no 'Computer Generated' Appointment Types which need updating."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: @IOF,"ENCOUNTER DATE",?25,"PATIENT NAME",?60,"PATIENT SSN"
  • Line Location: DEMW+3
Function Call: WRITE
  • Prompt: !,?3,"DIVISION",?15,"CLINIC LOCATION",?50,"STOP CODE"
  • Line Location: DEMW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMW+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DEMW+5
Function Call: WRITE
  • Prompt: !,SDY,?25,$S(VAERR=0:VADM(1),1:"UNKNOWN"),?60,$G(VA("PID"))
  • Line Location: DEMW+6
Function Call: WRITE
  • Prompt: !!,"Patient's Service Connection and Rated Disabilities:"
  • Line Location: SC+5
Function Call: WRITE
  • Prompt: !!,$S(+VAEL(3)="1":" SC Percent: "_$P(VAEL(3),U,2)_"%",1:" Service Connected: No")
  • Line Location: SC+6
Function Call: WRITE
  • Prompt: !,"Rated Disabilities: "
  • Line Location: SC+7
Function Call: WRITE
  • Prompt: !,"Secondary Eligibility Code: ",$P(VAEL(1,SDSECN),U,2)
  • Line Location: SC+9
Function Call: WRITE
  • Prompt: !,"Primary Eligibility Code: ",$S(+VAEL(1):$P(VAEL(1),U,2),1:"N/A")
  • Line Location: SC+19
Function Call: WRITE
  • Prompt: !,"Secondary Eligibility Code: ",$P(VAEL(1,SDSECN),U,2)
  • Line Location: SC+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SCE - [#409.68] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call